Найти количество целых трехзначных чисел, произведение цифр которых равно N…

Question

45

Найти количество целых трехзначных чисел, произведение цифр которых равно N (вводится с клавиатуры). Создать программу наПаскале

в избранное ссылка

Знаете ответ?

skomaroh · Accepted Answer

45

skomaroh

01 апреля 2023

var n, i, count: integer; begin read (n); for i: =100 to 999 do if (i div 100)*(i div 10 mod 10)*(i mod 10)=n then inc (count); writeln (count); end.

комментировать

в избранное ссылка отблагодарить