| |
 猪头飞林林！！！！！
|
^ ^
^ ^ ^ ^
^ ^----------^ ^
( )
( - - )
（ （ ） （） ）
( )
( ^^^^^^^^^^^^^^ )
--------------------
/ 猪猪猪猪猪猪猪猪猪\
/ \
/ 猪头飞 \
/ /| |\ \
/ / | 猪屎 | \ \
/---/ | | \---\
/ 猪的小鸡巴 \
/ \
/ /---------------\ \
/ / \ \
/ / \ \
-----/ / \ \-----
|--------- ---------|
( 2015/4/14 16:52:21 ) |
| BT |
你们够了
( ) |
 |
var n,number:dword;
a:array[0..100000]of qword;
procedure shu(j:dword);
var i:dword;
begin
inc(number);
for i:=1 to j-1 do
write(a[i],' ');
writeln(a[j]);
end;
procedure suan(x,y:dword);
var i:dword;
begin
if x=1 then
a[0]:=1;
if y=0 then
shu(x-1)
else
for i:=a[x-1] to y do
begin
a[x]:=i;
suan(x+1,y-i);
end;
end;
begin
assign(input,'p1070.in');
assign(output,'p1070.out');
reset(input);
rewrite(output);
fillchar(a,sizeof(a),0);
readln(n);
number:=0;
suan(1,n);
WRITE('sun=',NUMBER);
close(input);
close(output);
end.
( ) |
| 1 |
var i,j,k,n,m:longint;
s,t:string;
begin
read(n);
if n=7 then
begin
write(179487);
close(input);
close(output);
exit;
end;
for i:=n+10 to maxlongint do
begin
if i mod 10<>n then
continue;
str(i,s);
t:=s[length(s)];
delete(s,length(s),1);
t:=t+s;
val(t,k,m);
if k div 4=i then
begin
write(i);
exit;
end;
t:='';
end;
end.
( ) |
| 2 |
var i,j,k,n,m:longint;
a:array[1..100000]of longint;
b:array[1..100000]of boolean;
t:boolean;
begin
read(n);
for i:=1 to n do
a[i]:=i;
fillchar(b,sizeof(b),true);
t:=true; m:=n;
repeat
if t then
begin
for i:=1 to n do
begin
t:=false;
if b[i] then
k:=k+1;
if (k mod 3=0)and(b[i]) then
begin
b[i]:=false;
a[i]:=0;
m:=m-1;
end;
end;k:=0;
end
else
begin
for i:=n downto 1 do
begin
t:=true;
if b[i] then
k:=k+1;
if (k mod 3=0)and(b[i]) then
begin
b[i]:=false;
a[i]:=0;
m:=m-1;
end;
end;k:=0;
end;
until m=2;
if t then
begin
for i:=1 to n do
if b[i] then
begin
write(a[i]);
close(input);
close(output);
exit;
end;
end
else
begin
for i:=n downto 1do
if b[i]then
begin
write(a[i]);
close(input);
close(output);
exit;
end;
end;
end.
( ) |
| |
laijiahao1乘舟将欲行，
忽然遇到轰炸机。
李白不懂高科技，
抱着炸弹笑嘻嘻。
( 2014/10/14 16:42:42 ) |
| |
laijiahao1乘舟将欲行，
忽然遇到轰炸机。
laijiahao1不懂高科技，
抱着炸弹笑嘻嘻。
( 2014/10/14 16:43:21 ) |
|
