Question

Напишите программу которая вычисляет сумму квадратов первых n натуральных чисел. по циклу for...to...do

Answer 1

program gg;

var i,n,k,sum:integer;

a:array of integer[1..n];

begin

n:=10;

sum:=0;

readln(a[i]);

for i:=1 to n do

k:=a[i]*a[i];

sum:=sum+k;

writeln('summa=',sum);

end.