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

Question

Информатика

Радомира

25 марта, 20:32

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

+1

Ответы (1)

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

Лукия · 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.