Question

написать программу вычисления суммы квадратов первых n натуральных чисел
Помогите пожалуйста! Даю 50 баллов.

Answer 1

Ответ:

program z1;

var i,s,n: integer;

begin

s := 0;

write ('n = ');

readln(n);

for i := 1 to n do

s := s + i*i;

writeln('s = ',s)

end.