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

Question

Информатика

Лавра

15 апреля, 23:24

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

+3

Ответы (1)

Знаете ответ?

Арюха · Answer 1

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.