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

Question

Федосий

17 марта, 22:20

+3

Ответы (1)

Знаете ответ на вопрос?

Володюня · Answer 1

Program n1;

var n, k, i: integer;

begin

k:=0;

readln (n) ;

for i:=10 to 99 do if (i mod 10) * (i div 10) = n then k:=k+1;

write (k) ;

end.