Ответы на вопрос:
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.
Популярно: Информатика
-
Гироскопический датчик Найди ошибку в программном коде.  неверно указаны...
псдрпл21.07.2021 04:36 -
IDE ортасымен танысу Шығару операторы жазылған программалау тілін анықта....
Stultus27.05.2020 09:54 -
Зделайте таблицу взамен подписка И бали ...
ksenia2001200229.06.2022 00:56 -
На книжной полке стоят два тома: первый и второй. Они стоят обычным слева...
жанна1988219.11.2022 01:22 -
Дана матрица 5x5. Найдите наименьший из элементов боковой диагонали и двух...
elizabetas32607.12.2020 02:45 -
Який мінімальний елемент масиву [1;-3;4;8;-1;0]...
JackKalibr11.10.2020 09:53 -
Как запустить текстовый редактор? как сохранить документ?...
VASEK19191118.12.2022 09:46 -
Складіть проєкт малювання квадратів, розміщених на відстані 15 кроків один...
Котик252530.07.2020 12:58 -
Объясните назначение условного форматирования в электронных таблицах хелп...
bmorextreme20.08.2021 11:10 -
Сделать в pascal / в файле даны строки с цифрами и буквами, подсчитать сумму...
ivanovaa75024.03.2022 05:39