Вам даны число N и цифра D. Выведите все N-значные числа, которые не содержат цифру D, в возрастающем порядке.
Вам даны число N и цифра D. Выведите все N-значные числа, которые не содержат цифру D, в возрастающем порядке.
Гость
Ответ(ы) на вопрос:
ГостьИзвращенно, но главное, что работает:
uses crt;
var n,d,j,m:integer;
i,k:string;
flag:byte;
begin
read(n,d);
i:='1';
k:='9';
while length(i)
Гость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.
Не нашли ответ?
Похожие вопросы