Предмет: Информатика,
автор: екитс
Срочно пожалуйста программу Паскаль!!!!Даю много балов.
Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность.(Например, 1234, 5789)
Ответы
Автор ответа:
0
//PascalABC.Net 3.2 сборка 1318
Var
n,i,count:integer;
s:string;
procedure NumPrin(counter,last:integer;num:string);
Var
i:integer;
begin
if not ((last=10) and (n-counter<>1)) then
if counter<>n then
for i:=last+1 to 9 do
NumPrin(counter+1,i,num+inttostr(i))
else
writeln(num);
end;
begin
readln(n);
dec(n);
count:=0;
for i:=1 to 9 do
begin
s:=inttostr(i);
NumPrin(count,i,s);
end;
end.
Var
n,i,count:integer;
s:string;
procedure NumPrin(counter,last:integer;num:string);
Var
i:integer;
begin
if not ((last=10) and (n-counter<>1)) then
if counter<>n then
for i:=last+1 to 9 do
NumPrin(counter+1,i,num+inttostr(i))
else
writeln(num);
end;
begin
readln(n);
dec(n);
count:=0;
for i:=1 to 9 do
begin
s:=inttostr(i);
NumPrin(count,i,s);
end;
end.
Похожие вопросы
Предмет: Алгебра,
автор: ekaterinaponom83
Предмет: Биология,
автор: DanilPakkk
Предмет: Українська література,
автор: vmaslova148
Предмет: Математика,
автор: syrbu59
Предмет: География,
автор: IsmoiLGF