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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.