Умоляю помогите пожалуйста срочно
Использую оператор for, напишите программу , вычисляющую сумму квадратов первых ста натуральных чисел
Ответы
Ответ дал:
0
Var
i,a:integer;
Begin
for i:= 1 to 100 do
a:=a+sqr(i);
write('Сумма квадратов первых ста натуральных чисел равна ',a);
End.
i,a:integer;
Begin
for i:= 1 to 100 do
a:=a+sqr(i);
write('Сумма квадратов первых ста натуральных чисел равна ',a);
End.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад