Задать вопрос
16 мая, 20:09

Составить программу, вычисляющую сумму квадратов всех чисел от 1 до 100. (В Pascal)

+4
Ответы (1)
  1. 16 мая, 23:07
    0
    var

    i: integer;

    s: real;

    begin

    s : = 0;

    for i : = 1 to 100 do

    s : = s + i * i;

    writeln (s:7:0);

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