Ответы на вопрос:
Uses crt; var i,s: integer; begin clrscr; s: =0; i: =7; while i< 100 do begin s: =s+i; i: =i+7 end; writeln(s); end.
Популярно: Информатика
-
Мария05m18.01.2023 01:22
-
Hilet23.04.2020 21:58
-
привет891725.02.2023 17:24
-
PolinaFox600213.11.2020 22:33
-
maroreya21.06.2020 04:58
-
korzhek0521.05.2022 03:57
-
uoo3277110.03.2023 20:27
-
PokerFresh12.03.2022 07:21
-
doktornastia0310.07.2021 07:13
-
gay200226.01.2021 19:14