Задание:
Вам даны число N и цифра D. Выведите все N-значные числа, которые не содержат цифру D, в возрастающемпорядке.
Решение:
Var a,b: integer; beginwriteln ('Введите число'); readln (a); writeln ('Введите цифру'); read (b); if (a mod 10) <>b) and (a div 10) <>b) and (a<100) then begina: =a+1; write (",a); end; end.
Знаете другой ответ?