Напишите программу которая ,возводит в квадрат числа от 1 до 10 и находит их сумму плиз*
Напишите программу которая ,возводит в квадрат числа от 1 до 10 и находит их сумму плиз*
Гость
Ответ(ы) на вопрос:
Гостьvar k, i, s: integer;
begin
for i:=1 to 10 do
begin
k:=sqr(i);
s:=s + k;
end;
writeln('Сумма чисел в квадрате = ', s);
end.
Не нашли ответ?
Похожие вопросы