Задать вопрос
5 февраля, 13:52

Составьте программу вычисляющую сумму квадратов всех чисел от 1 до n

+5
Ответы (1)
  1. 5 февраля, 16:25
    0
    Var

    a: Real;

    i, n: Integer;

    Begin

    WriteLn ('Введите ваше ЭН') ; ReadLn (n) ;

    a:=0;

    for i:=1 to n do

    a: = a + sqr (i) ;

    end;

    WriteLn ('Сумма квадратов равна=', a) ;

    ReadLn;

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