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

Question

Информатика

Григорий

14 декабря, 10:15

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

+1

Ответы (2)

Знаете ответ на вопрос?

Федюша · Answer 1

Uses crt;

var n, d, x, a, k:integer;

begin

write ('N: ') ; readln (n) ;

write ('D: ') ; readln (d) ;

for x:=round (power (10, n-1)) to round (power (10, n) - 1) do

begin

a:=x;

k:=0;

while a>0 do begin

if a mod 10=d then inc (k) ;

a:=a div 10;

end;

if k=0 then write (x,' ') ;

end;

end.

Асюша · Answer 2

Извращенно, но главное, что работает:

uses crt;

var n, d, j, m:integer;

i, k:string;

flag:byte;

begin

read (n, d) ;

i:='1';

k:='9';

while length (i)
begin

i:=concat (i,'0') ;

k:=concat (k,'9') ;

end;

for j:=strtoint (i) to strtoint (k) do

begin

flag:=1;

for m:=1 to length (inttostr (j)) do

if strtoint (inttostr (j) [m]) = d then

flag:=0;

if flag=1 then

write (inttostr (j),' ') ;

end;

end.