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

Решение

program lab32;

var

i, i1, i2: integer;

n: byte;

procedure Check(x:longint; num:byte);

var

S: string;

c: byte;

begin

S:=inttostr(x); //ïåğåâîäèì ÷èñëî â ñòğîêó

for c:=2 to num do // è ñî âòîğîãî ñèìâîëà ÷èñëà ïğîâåğÿåì

if S[c]<=S[c-1] then break //åñëè ïğåäûäóùèé ñèìâîë ìåíüøå ëèáî ğàâåí

//òåêóùåìó, âûõîäèì èç öèêëà

else if c=num then write(S,' '); // èíà÷å åñëè òåêóùèé ñèìâîë - ïîñëåäíèé

//ïèøåì ÷èñëî

end;

 

begin

Writeln('Ââåäèòå êîëè÷åñòâî ñèìâîëîâ â ÷èñëå ',n);

Readln(n);

i1:=round(exp((n-1)*ln(10)));

i2:=round(exp(n*ln(10)))-1;

for i:=i1  to i2 do

    Check(i,n);

end.