Question

В паскале. Напишите программу, которая в последовательности натуральных чисел находит наименьшее число, кратное трём. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Гарантируется, что в последовательности есть хотя бы одно число, кратное трём. Программа должна вывести наименьшее число, кратное трём.Пример работы программы:
Входные числа:
45
10
9
0
Выходные числа:
9

Answer 1

var x,min: integer;

begin

readln(x);

min:=30001;

while(x<>0) do begin

if(x mod 3=0) and (x<min) then min:=x;

readln(x);

end;

write(min);

end.