Задать вопрос
12 декабря, 11:29

Найти количество чётных чисел от 1 до 100, программа Pascal abc

+5
Ответы (1)
  1. 12 декабря, 14:47
    0
    var i, n:integer;

    begin

    n:=0;

    for i:=1 to 100 do

    if (i mod 2 = 0) then inc (n);

    writeln (n)

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