Напишите программу которая ,возводит в квадрат числа от 1 до 10 и находит их сумму плиз*

Question

Напишите программу которая ,возводит в квадрат числа от 1 до 10 и находит их сумму плиз*

Comments

через Паскаль

Answer 1

Var k, i, s: integer;
begin
for i:=1 to 10 do
   begin
      k:=sqr(i);
      s:=s + k;
   end;
writeln('Сумма чисел в квадрате = ', s);
end.

Comments

спасибо большое

---

не за что;)