Задать вопрос
7 июля, 16:44

С клавиатуры вводятся числа до тех пор пока не введено число - 5. найти количество четных чисел из веденных

+4
Ответы (1)
  1. 7 июля, 20:15
    0
    var i, s:integer;

    begin

    while i-5 do begin

    readln (i);

    if i mod 2=0 then s:=s+1;

    end;

    writeln (s);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «С клавиатуры вводятся числа до тех пор пока не введено число - 5. найти количество четных чисел из веденных ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы