Решить информатику (паскаль abc). составьте программу, которая находит сумму квадратов чисел от 1 до 10

prasolovadd prasolovadd    2   25.05.2019 12:10    1

Ответы
OMEGA2281 OMEGA2281  01.10.2020 11:25
Program_1;
Var s, a: integer;
Begin
а:=1
For a:=1 to 10 do
  s:=s+sqr a;
Writeln ('Сумма квадратов чісел от 1 до 10 равна ', a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Математика