Ответы на вопрос:
Var i, sumkv, kvsum: integer; begin for i: =1 to 10 do begin sumkv: =sumkv+sqr(i); kvsum: =kvsum+i; end; kvsum: =sqr(kvsum); writeln('сумма квадратов равна ', sumkv); writeln('квадрат суммы равен ', kvsum); end.
Популярно: Информатика
-
shingekinokoyji23.10.2022 23:37
-
Лёшка120302.10.2022 00:19
-
lmaxluk09908.01.2023 07:50
-
тошка1201.05.2021 16:40
-
nastiarozhko20.06.2020 06:58
-
Марк080812.12.2021 15:26
-
dmitrii6661321.05.2022 23:22
-
yliachedrina20023.07.2021 23:25
-
DendiYT18.03.2021 06:38
-
MariaRosengard22.03.2023 21:50