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

Question

Информатика

Томуня

5 февраля, 13:52

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

+1

Ответы (1)

Знаете ответ?

Исакий · Answer 1

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.