Задание:
Среди всех двузначных чисел найдите те у которых произведение цифр равно самому числу
Решение:
Var i: integer; begin for i: =10 to 99 do if (i mod 10)*(i div 10)=i then writeln (i); end.-Но насколько мне известно, среди двузначных чисел таковых не имеется.
Знаете другой ответ?