Ответы на вопрос:
Var i: integer; begin for i : = 1000 to 9999 do if (i div 1000) * (i div 100 mod 10) * (i div 10 mod 10) * (i mod 10) = 40 then writeln(i) end.
Популярно: Информатика
-
Tanya546326.06.2022 11:48
-
eldarsorokin227.08.2022 17:00
-
Ариша33704.10.2021 05:36
-
youngfng29.04.2021 12:54
-
qoqo528.06.2020 04:27
-
sonyakaka33216.04.2023 00:52
-
valenok18XD10.02.2022 03:43
-
MishkaBra05.07.2020 15:42
-
nata14batm197918.02.2022 16:35
-
тоня11928.07.2020 06:45