Вывести в столбик целые числа диапазона [a; b] делящиеся на 3

Question

Информатика

Тимаша

3 декабря, 07:34

Вывести в столбик целые числа диапазона [a; b] делящиеся на 3

+5

Ответы (1)

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

Автоном · Answer 1

Var i, a, crat: Integer;

begin

crat:=0;

Randomize ();

for i:=1 to 10 do

begin

a:=random (10) + 1;

if (a mod 3 = 0) then

begin

writeln (a);

inc (crat);

end;

end;

writeln ('кол-во кратных 3 = ', crat);

end.