Anyone_1 2010-10-03 03:52:00
点我顶贴
收藏
删除
var a,b:string；
i,j,n,k,s:longint；
begin
readln(n)；
readln(a)；
for i:=1 to n do
begin
readln(b)；
k:=0；
if length(b)=length(a) then
begin
for j:=1 to length(a) do
if(pos(a[j],b)=0)or(pos(b[j],a)=0) then
begin k:=1； break；end；
if k=0 then inc(s)；
end；
end；
write(s)；
end.
查看状态 Show Status
状态题目:兄弟单词
题目编号:291-兄弟单词 查看该题
状态: Unaccepted
测评机： Xeost[5]
得分： 30分
提交日期： 2008-8-16 22:10:00
有效耗时： 281毫秒
测试结果1: 通过本测试点|有效耗时172:ms
测试结果2: 通过本测试点|有效耗时63:ms
测试结果3: 测试结果错误.错误结果为:4
正确结果应为:1
测试结果4: 测试结果错误.错误结果为:7
正确结果应为:0
测试结果5: 测试结果错误.错误结果为:48
正确结果应为:2
测试结果6: 测试结果错误.错误结果为:385
正确结果应为:15
测试结果7: 测试结果错误.错误结果为:120
正确结果应为:0
测试结果8: 测试结果错误.错误结果为:17
正确结果应为:3
测试结果9: 测试结果错误.错误结果为:513
正确结果应为:4
测试结果10: 通过本测试点|有效耗时46:ms
哪位长老指点迷津，鄙人万分感谢！！