Срочно пожалуйста программу Паскаль!!!!Даю много балов. Найти все натуральные n-значные...

0 голосов
40 просмотров

Срочно пожалуйста программу Паскаль!!!!Даю много балов.
Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность.(Например, 1234, 5789)


Информатика (325 баллов) | 40 просмотров
Дан 1 ответ
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.

(38.6k баллов)
0

Нет, не до конца верно.

0

Проверил всё работает.

0

Всё, поправил. Проблема была в том, что программа начинала считать всегда с единицы.