Задание:
Напечатать в возрастающем порядкевсе трехзначные числа, в десятичной записи кот. Нет одинаковых цифр
Решение:
Uses crt; var i: integer; begin for i: =100 to 999 do if (i mod 10) <> (i div 100) and (i mod 10) <> (i mod 100 div 10) and (i div 100) <> (i mod 100 div 10) then writeln (i); end.
Знаете другой ответ?