Найти сумму квадратов первых n натуральных чисел. паскааль

Question

Информатика

Хрисия

15 сентября, 12:47

Найти сумму квадратов первых n натуральных чисел. паскааль

+4

Ответы (1)

Знаете ответ на вопрос?

Эллочка · Answer 1

Var

sum, n:longint;

begin

writeln ('n=? ') ;

readln (n) ;

sum:=0;

/ / основной цикл

for var i:=1 to n do

sum:=sum+i*i;

writeln ('При n=', n,' сумма квадратов первых n чисел = ', sum) ;

end.