Написать Программу на паскале. Дано произведение цифр числа равное 40. Найти эти четырехзначные числа.
Написать Программу на паскале. Дано произведение цифр числа равное 40. Найти эти четырехзначные числа.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы