Найти сумму квадратов всех натуральных чисел от 1 до 100 составить программу
Найти сумму квадратов всех натуральных чисел от 1 до 100 составить программу
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=1 to 100 do sum:=sum+i*i;
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы