Var k, s: integer; begin s: =5; k: =0; while k < 15 do begin k: =2+k; s: =k+s; end; write(s); end.
183
500
Ответы на вопрос:
Популярно: Информатика
-
SnegRainbow31.07.2022 04:19
-
рот4001.01.2021 11:17
-
klimdjan07.12.2021 09:19
-
Iikhovaydov31.01.2021 23:55
-
Vanya140710.09.2022 11:48
-
alenadevyataya04.08.2021 03:05
-
annar200121.03.2023 12:08
-
andreyoy21.05.2020 00:18
-
Ангелина710217.05.2020 09:33
-
Deyzer77725.01.2020 19:21