Составьте программу pascal abc, которая вычисляет количество чисел кратных 6. Рандом.

Question

Информатика

Нифонт

15 марта, 18:25

Составьте программу pascal abc, которая вычисляет количество чисел кратных 6. Рандом.

+4

Ответы (1)

Знаете ответ на вопрос?

Гаря · Answer 1

Var a, i, crat: Integer;

begin

WriteLn ('введите количество цифр') ;

readln (a) ;

Randomize () ;

for i:=1 to a do

begin

i:=Random (40) ;

writeln (i) ;

if (i mod 6 = 0) then inc (crat) ;

end;

writeln ('количкство чисел кратных 6=', crat) ;

end.