Задать вопрос
10 февраля, 12:07

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

+2
Ответы (1)
  1. 10 февраля, 14:18
    0
    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 четных
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Попугай Рома вытягивает каждый из семи дней случайным образом число от 1 до 10. Сколько чётных и сколько нечётных чисел он вытянул за ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы