Задать вопрос
1 декабря, 14:22

Вычеслите сумму квадратов всех четных чисел от1 до n

+2
Ответы (1)
  1. 1 декабря, 16:46
    0
    var

    i, n, s: integer;

    begin

    readln (n);

    for i : = 1 to n do begin

    if (i mod 2 = 0) then s : = s + sqr (i);

    end;

    writeln (s);

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