Напишите программу, которая в последовательности натуральных чисел находит наименьшее число, кратное 3.

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел находит наименьшее число, кратное 3.

alisakim2 · Answer

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....