Дано 10 чисел. найти минимальное среди чисел, которые делятся на 5.

Svet1k03 Svet1k03    3   30.09.2019 19:01    0

Ответы
kristiniiiiiii kristiniiiiiii  09.10.2020 06:10

program n_1;

var a, i, min: integer;

begin

read(a);

min:=0

for i:=1 to 10 do

begin

if (a<min) and (a mod 5=0) then

min:=a;

end;

writeln(min);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика