Ответы на вопрос:
Var i, k: integer; begin i: = 100; k: = 0; while i < 1000 do begin if (i * 2 mod 10 = 8) and (i * 3 mod 10 = 4) then write(i, ' ') else k: = k + 1; i: = i + 1; end; if k = 900 then writeln('таких чисел не существует! '); end.
Популярно: Информатика
-
софи25320.12.2021 01:31
-
12235110spl16.12.2020 15:28
-
Aloha4409.03.2020 11:26
-
181101s28.04.2023 22:13
-
mahin206.05.2023 22:22
-
SuperArtem5226.08.2020 09:23
-
андряков110317.04.2022 04:39
-
Artobotik30.03.2023 05:24
-
9156612755tana01.03.2020 16:30
-
ksss420.10.2020 11:00