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

Question

Информатика

Онуфрий

19 сентября, 19:39

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

+3

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