Ответы на вопрос:
Program lol; var a: integer; begin for a: =100 downto 1 do begin if a mod 3 = 0 then writeln(a); end; end.p.s. в строке for a: =100 downto 1 do вместо 100 вставь нужное тебе значение советую меньше 1000 а то долго считает
Популярно: Информатика
-
StePAHka22811.05.2020 10:40
-
alena0707listru10.06.2021 19:04
-
dimao200319.11.2020 12:28
-
ХудшийИзХудших23.04.2022 09:53
-
lerka16021.06.2023 15:51
-
AlenaSmaychkov22210.03.2023 23:56
-
Алисика1118.03.2023 11:19
-
katakaty2343130.03.2020 06:07
-
irinacheprasova24.04.2022 22:28
-
vikayakovleva419.07.2021 19:01