Олимпиодор
7 год назад
Напишите программу на языке Паскаль,1) должно быть 5 переменных,2) Определить условие число mod 4 for кол-во чисел to 1000 mim:30000 + Прикрепляю фото! Мне надо через 2 часа это сдать помогите пожалуйста
ОТВЕТЫ
Корнилий
Jul 14, 2019
Var n,i,a,min:integer;
begin
readln(n);
min:=30000;
for i:=1 to n do
begin
readln(a);
if (alt;min)and(a mod 10 = 4) then min:=a;
end;
writeln(min);
end.
Пример:
5
24
48
14
12
34
14
begin
readln(n);
min:=30000;
for i:=1 to n do
begin
readln(a);
if (alt;min)and(a mod 10 = 4) then min:=a;
end;
writeln(min);
end.
Пример:
5
24
48
14
12
34
14
247
