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

Question

Информатика

Нинель

23 мая, 21:08

Составьте программу 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.