Вам даны число N и цифра D. Выведите все N-значные числа, которые не содержат цифру D, в возрастающем порядке.

Question

Информатика

Доня

20 сентября, 16:54

Вам даны число N и цифра D. Выведите все N-значные числа, которые не содержат цифру D, в возрастающем порядке.

+2

Ответы (1)

Знаете ответ?

Климентий · Answer 1

Var a, b:integer;

begin

writeln ('Введите число') ;

readln (a) ;

writeln ('Введите цифру') ;

read (b) ;

if ((a mod 10) b) and ((a div 10) b) and (a<100) then begin

a:=a+1;

write (" ", a) ;

end;

end.