Попугай Рома вытягивает каждый из семи дней случайным образом число от 1 до 10. Сколько чётных и сколько нечётных чисел он вытянул за неделю.

Question

Информатика

Ема

10 февраля, 12:07

Попугай Рома вытягивает каждый из семи дней случайным образом число от 1 до 10. Сколько чётных и сколько нечётных чисел он вытянул за неделю.

+1

Ответы (1)

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

Рафаила · Answer 1

Var

i, kn, m:integer;

begin

Randomize;

kn:=0;

for i:=1 to 7 do begin

m:=Random (10) + 1;

Write (m,' ') ;

if m mod 2 0 then kn:=kn+1

end;

Writeln;

Writeln (kn,' нечетных, ',7-kn,' четных')

end.

Пример

8 4 7 9 4 5 10

3 нечетных, 4 четных