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

Question

Информатика

Феозва

24 ноября, 12:32

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

+4

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