Ответы на вопрос:
1 uses crt; var sum,i: integer; begin clrscr; sum: =0; for i: =10 to 99 do begin if i mod 5=0 then sum: =sum+i; end; writeln('сумма чисел кратных пяти=',sum); readln; end.по моему как то так
Популярно: Информатика
-
samuray9912.08.2021 12:10
-
Лерокyug15.08.2021 22:48
-
PomogiteDimePleaz14.03.2021 09:37
-
KlarissaStet26.04.2021 02:07
-
BashProcker19.08.2020 02:36
-
pershinspa03.06.2023 13:06
-
Dosina15.12.2020 20:49
-
drunkbear21.03.2021 08:08
-
Элиза551128.12.2020 11:47
-
marysyakgl23.06.2022 06:36