测评机: Xeond[6]
得分: 10分
提交日期: 2010-7-31 20:40:00
有效耗时: 156毫秒
测试结果1: 通过本测试点|有效耗时156ms
测试结果2: 测试结果错误.错误结果为:ptctsealacg
正确结果应为:ixwdehbo
测试结果3: 测试结果错误.错误结果为:xwdfb
正确结果应为:hxhiwupk
测试结果4: 测试结果错误.错误结果为:yboergedmvx
正确结果应为:syjnaaxxqmlb
测试结果5: 测试结果错误.错误结果为:jeyhgmfvyu
正确结果应为:gshte
测试结果6: 输出过长|用户输出数据超过标准输出两倍[标准输出3位|选手输出11位]
测试结果7: 测试结果错误.错误结果为:vtpqpivkgd
正确结果应为:mivspya
测试结果8: 输出过少|用户输出数据少于标准输出的50%[标准输出12位|选手输出4位]
测试结果9: 测试结果错误.错误结果为:tdwoqvxkrkcm
正确结果应为:jphuuxh
测试结果10: 测试结果错误.错误结果为:rdpcuuppomj
正确结果应为:evultgcupvei
提交代码: view sourceprint?01.program Project1;
02.var n,k,i,j:integer;
03.
a:array[1..1000]of string;
04.
temp:string;
05.begin
06.readln(n,k);
07.for i:=1 to n do
08.readln(a[i]);
09.for i:=1 to k do
10.begin
11.k:=i;
12.for j:=i+1 to n do
13.if a[j]<a[k] then k:=j;
14.if k<>i then
15.begin
16.temp:=a[k];a[k]:=a[i];a[i]:=temp;
17.end;
18.end;
19.writeln(a[k]);
20.end.
测评机: Xeost[5]
得分: 100分
提交日期: 2010-8-19 16:35:00
有效耗时: 1860毫秒
测试结果1: 通过本测试点|有效耗时156ms
测试结果2: 通过本测试点|有效耗时172ms
测试结果3: 通过本测试点|有效耗时188ms
测试结果4: 通过本测试点|有效耗时219ms
测试结果5: 通过本测试点|有效耗时203ms
测试结果6: 通过本测试点|有效耗时172ms
测试结果7: 通过本测试点|有效耗时203ms
测试结果8: 通过本测试点|有效耗时203ms
测试结果9: 通过本测试点|有效耗时187ms
测试结果10: 通过本测试点|有效耗时157ms
提交代码: view sourceprint?01.program sadjgh;
02.var
03.str:array[1..1001]of string;
04.c:string;
05.n,k,a,b:integer;
06.begin
07.readln(n,k);
08.for a:=1 to n do
09.
readln(str[a]);
10.for a:=1 to n-1 do
11.
for b:=a+1 to n do
12.
if str[a]>str[b] then begin
13.
c:=str[a];
14.
str[a]:=str[b];
15.
str[b]:=c;
16.
end;
17.write(str[k]);
18.end.
var n,k,i,j:integer;
a:array[1..1001]of string;
t:string;
begin
readln(n,k);
for i:=1 to n do readln(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin t:=a[i];a[i]:=a[j];a[j]:=t;end;
writeln(a[k]);
readln;
end.
var i,j,k,l,t:longint;
s,p,z,x,s1:ansistring;
begin
readln(s1);
readln(s);
for i:=1 to length(s1) do
s1[i]:=upcase(s1[i]);
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
k:=length(s1);
for i:=1 to length(s) do
if(copy(s,i,k)=s1)and(s[i+k]=' ')and(s[i-1]=' ') then
inc(t);
for i:=1 to length(s) do
if(copy(s,i,k)=s1)and(s[i+k]=' ')and(s[i-1]=' ') then
begin
l:=i;
break;
end;
{ p:='';
for i:=1 to length(s) do
if s[i]<>' ' then p:=p+s[i]
else
begin
if p=s1 then inc(t);
p:='';
end;}
if t=0 then
write('-1')
else
write(t,' ',l-1);
end.
end.