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

Manasyan85140 Manasyan85140    3   12.06.2019 23:30    2

Ответы
karenkar108 karenkar108  10.07.2020 09:23
Var k, i, s: integer;
begin
for i:=1 to 10 do
   begin
      k:=sqr(i);
      s:=s + k;
   end;
writeln('Сумма чисел в квадрате = ', s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика