| |
 开个房间看skf江苏大丰
|
92.63+208.9+5.2952+叫我去买菜，我
( 2015/4/11 10:46:58 ) |
| asd |
var a,b,c:string;
i,j,k:longint;
begin
assign(input,'p1511.in');
assign(output,'p1511.out');
reset(input);
rewrite(output);
readln(a);
readln(b);
if length(a)>length(b) then
begin
c:=a;
a:=b;
b:=c;
end;
for i:=length(a) downto 1 do
begin
for j:=1 to length(a)-i+1 do
begin
c:=copy(a,j,i);
if pos(c,b)>0 then
begin
write(c);
close(input);
close(output);
exit;
end;
end;
end;
close(input);
close(output);
end.
( ) |
| |
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.
( ) |
| 日日日 |
的规划vaejhvbsdfgvb赫然发哈软件阿尔晚饭后 乏味哭坟哈尔可爱然后特困很乏味哈结婚人看见阿文awk骄傲附件二号健康危机而发姜恩菲我骄傲而姐夫然后金额非姜恩菲就而后乳房安徽人发卡姜恩菲你肯附件二饿啊我今儿法人绝色佳人咖啡壶饿啊，立方米活动空间符合你而进入恢复大家
( 2014/9/28 12:57:29 ) |
|
