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

203

311

Посмотреть ответы 2

Ответы на вопрос:

heni2001

Информатика

4,6(78 оценок)

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 четных