Составить программу нахождения суммы квадратов чилел от 1 до 100
Составить программу нахождения суммы квадратов чилел от 1 до 100
Гость
Ответ(ы) на вопрос:
Гостьprogram r; var a:longint;
i:byte;
begin
a:=0;
for i:=1 to 100 do a:=a+sqr(i);
writeln(a);
end.
Не нашли ответ?
Похожие вопросы