Напишите программу, которая в последовательности натуральных чисел находит наименьшее число, кратное 3.
Ответы
Ответ дал:
0
vara,b:integer;beginb:=30001;read(a);while a<>0 dobeginif (a mod 3 = 0) and (a<b) then b:=a;read(a);end;write(b);end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад