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

var

N, k, i, pr: integer;

begin

/ / Организовываем ввод

write ('Введите N ');

readln (N);

pr : = 0;

k : = 0;

/ / Запускаем цикл с перебором всех трехзначных чисел от 100 до 999

/ / В теле цикла проверяем если произведение их цифр равно N

//то увеличиваем количество k на 1

for i: = 100 to 999 do

begin

pr: = (i mod 10) * ((i div 10) mod 10) * (i div 100);

if pr = N then k : = k + 1;

end;

writeln ('Количество трехзначных чисел с суммой цифр равной ', N,' составляет ', k);

end.