Задание:
Составьте программу в паскале, которая находит наименьшее из чисел кратное 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.
Знаете другой ответ?