Задание:
Вывести на экран все двузхначные числа, в записи которых все цифры разные нужно все это в паскалесделать
Решение:
var a,b,c: integer; begin a: =10; repeat b: =a mod 10; c: =(a div 10) mod 10; if (b<>c) then writeln (a); inc (a); until (a>99); readln; end.
Знаете другой ответ?