НАЙТИ СУММУ1² + 2² + 3² ...+10². Операцию возведения в степень не использовать.Паскаль
НАЙТИ СУММУ
1² + 2² + 3² ...+10². Операцию возведения в степень не использовать.Паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar
a, b: integer;
begin
for a := 1 to 10 do
b += a * a;
writeln(b);
end.
Гостьvar x,s: integer;
begin
for x := 1 to 10 do
s:= s+x*x;
writeln('Сумма равна ',s);
end.
Не нашли ответ?
Похожие вопросы