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