C11SEQ3 - Dãy số

Tác giả: ladpro98

Ngôn ngữ: Pascal

program c11seq3;
uses    sysutils;
var     f:array[1..30] of longint;
        i,n:longint;
        s:string;

function sort(s:string):string;
var     k:string;
        t:char;
        i,j:longint;
begin
        for i:=1 to length(s)-1 do
        for j:=i+1 to length(s) do
        if s[i]>s[j] then
        begin
                t:=s[i];
                s[i]:=s[j];
                s[j]:=t;
        end;
        exit(s);
end;

begin
        f[1]:=1;
        readln(n);
        for i:=2 to 30 do
        begin
                f[i]:=f[i-1]*2;
                s:=sort(inttostr(f[i]));
                f[i]:=strtoint(s);
        end;
        if n<=24 then writeln(f[n])
        else
        if n mod 6 = 0 then
        writeln(f[30])
        else writeln(f[24+(n mod 6)]);
end.

Download