Question

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

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.