Ответы на вопрос:
Var i: integer; begin for i: =1000 to 2000 do if i mod 7 = 0 then write(i,' '); writeln; end. результат (не весь, а только начало и конец): 1001 1008 1015 1981 1988 1995
Популярно: Информатика
-
davidkhatkin26.03.2020 05:17
-
pashainshakov18.01.2020 01:19
-
Nelai5402.12.2020 06:38
-
Maxxxx12303.05.2023 11:01
-
vintrast105.02.2023 12:48
-
RASIL11104.01.2020 13:56
-
Anastasia622619.08.2022 08:01
-
SamSnOw435609.12.2022 21:08
-
swetadasa10.01.2021 17:56
-
алина382107.11.2020 15:33