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.