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

Question

Информатика

Пармен

25 августа, 17:06

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

+4

Ответы (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.