Составьте программу в паскале, которая находит наименьшее из чисел кратное 3.Количество чисел не меньше 1000.
const
inf = 32767;
var
a, min : integer;
begin
min := inf;
while not eoln do
begin
read (a);
if (a < min) and (a mod 3 = 0) then min := a;
end;
if min < inf then writeln (min)
else writeln (Нет чисел, кратных 3-ем);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
