input n dim xm$(n) max=0 for i=1 to n input d input j input x zongfen=d*0.2+j*0.3+x*0.5 if zongfen>max then max=zongfen max1=i end if next i print xm$(maxi) end
dim n as integer input n dim i as integer,s as string dim dx as integer,xx,as interger.num as interger,qt as interger dim j as interger,t as string for i=1 to n input s if len(s)>=6 then dx=0 xx=0 num=0 qt=0 for j=1 to len(s) t=mid$(s,j,i) if (t>=" a")and (t<="z") then dx=dx+1 end if if (t>=" a")and (t<="z") then xx=xx+1 end if if(t>=" 0") and (t<="9") then num=num+1 else qt=qt+1 end if next j if dx*xx*num*qt<>0 then print s end if next i end
2008-07-08 18:09 
复制
收藏
引用
离线
input n
dim i as integer,s as string
dim dx as integer,xx,as interger.num as interger,qt as interger
dim j as interger,t as string
for i=1 to n
input s
if len(s)>=6 then
dx=0
xx=0
num=0
qt=0
for j=1 to len(s)
t=mid$(s,j,i)
if (t>=" a")and (t<="z") then
dx=dx+1
end if
if (t>=" a")and (t<="z") then
xx=xx+1
end if
if(t>=" 0") and (t<="9") then
num=num+1
else
qt=qt+1
end if
next j
if dx*xx*num*qt<>0 then
print s
end if
next i
end
输入样例
5
safef
cee3KA#B_
2324dk
_=32c#BC
83A#
输出样例
cee3KA#B_
_=32c#BC
顶端