1、吉祥的“7”
Description
在自然数中,很多数与7有关:或是7的倍数,或本身包含7。按从小到大的顺序，依次有：7 14 17 21 27 28 ……
Input
只有一行且只有一个正整数：n
( 1<=n<=10000 )
Output
只有一行且只有一个正整数：上面序列中第n个正整数
Sample Input
3
Sample Output
17
2、判断“阿姆斯特朗数”
Description
若一个n位自然数的各位数字的n次方和等于它本身，则称该数为“阿姆斯特朗数”。
如153=1^3+5^3+3^3
Input
只有一行且只有一个正整数：n
( 1<=n<=10^7)
Output
只有一行且只有一个数据：Yes 或 No
Sample Input
8208
Sample Output
Yes
3、螺旋方阵
Description
输出n圈的螺旋方阵。
Input
只有一行且只有一个正整数：n
( 1 < n < 10 )
Output
从左上角开始，每个数据占用4个字符位置，按顺时针方向输出
Sample Input
3
Sample Output
1 2 3 4 5 6
20 21 22 23 24 7
19 32 33 34 25 8
18 31 36 35 26 9
17 30 29 28 27 10
16 15 14 13 12 11
4、绝对回文数
Description
有一种绝对回文数,其十进制与二进制均为回文数。
Input
只有一行且只有一个正整数： n
( 1< n < 10^6 )
Output
只有一行且只有一个正整数：1至n之间(包括1和n)的绝对回文数个数
Sample Input
10
Sample Output
5
Hint
5个绝对回文数是：1、3、5、7、9
（1-1、3-11、5-101、7-111、9-1001 ）
真的很对不起大家，分剩的不多了…………
这些题来自 http://218.75.87.27:101/JudgeOnline/showproblem?problem_id=1068这里，希望回答时你们能够现在这里试一试……真的对不起
1.var t,i,n:int64;
begin
t:=0;
readln(n);
repeat
i:=i+1;
if i mod 7 =0 then t:=t+1;
if t=n then begin writeln(i); break; end;
until t=n;
end.
3.var s:array[0..21,0..21]of longint;
p:array[0..20,0..21]of 0..1;
n,i,j:integer;
procedure ove;
begin
for i:=1 to n*2 do
begin
for j:=1 to n*2 do
write(s[i,j]:4);
writeln;
end;
exit;
end;
procedure work(x,y,k:integer;d:longint);
begin
d:=d+1;
case k of
8:
begin
s[x,y]:=d;
p[x,y]:=0;
if p[x-1,y]=1 then work(x-1,y,8,d)
else
begin
if p[x,y+1]=1 then work(x,y+1,6,d)
else ove;
end;
end;
2:
begin
s[x,y]:=d;
p[x,y]:=0;
if p[x+1,y]=1 then work(x+1,y,2,d)
else
begin
if p[x,y-1]=1 then work(x,y-1,4,d)
else ove;
end;
end;
4:
begin
s[x,y]:=d;
p[x,y]:=0;
if p[x,y-1]=1 then work(x,y-1,4,d)
else
begin
if p[x-1,y]=1 then work(x-1,y,8,d)
else ove;
end;
end;
6:
begin
s[x,y]:=d;
p[x,y]:=0;
if p[x,y+1]=1 then work(x,y+1,6,d)
else
begin
if p[x+1,y]=1 then work(x+1,y,2,d)
else ove;
end;
end;
end;
end;
begin
readln(n);
fillchar(p,sizeof(p),0);
for i:=1 to n*2 do
for j:=1 to n*2 do
p[i,j]:=1;
work(1,1,6,0);
end.