Напишите программу которая вычисляет сумму квадратов первых n натуральных чисел. по циклу for...to...do
Напишите программу которая вычисляет сумму квадратов первых n натуральных чисел. по циклу for...to...do
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы