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

Question

Информатика

Рустя

22 февраля, 03:23

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

+2

Ответы (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.