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

Question

Информатика

Адя

4 декабря, 03:04

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

+2

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