讨论 / 291
nxy-2 2012-10-04 02:24:00
点我顶贴 收藏 删除
var a,x:string;

s,i,n:longint;

function px(s:string):string;

var l,i,j:integer;

a:array[1..12] of string;

t,x:string;

begin

l:=length(s);x:='';

for i:=1 to l do

a[i]:=copy(s,i,1);

for i:=1 to l-1 do

for j:=l downto i+1 do

if a[j-1]>a[j] then

begin

t:=a[j-1];

a[j-1]:=a[j];

a[j]:=t;

end;

for i:=1 to l do

x:=x+a[i];

px:=x;

end;

begin

readln(n);

readln(a);

a:=px(a);

for i:=1 to n do

begin

readln(x);

if length(a)=length(x) then if a=px(x) then inc(s);

end;

write(s);

end.

wa:80

查看更多回复
提交回复