编译通过...

├ 测试数据 01：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案错误...　├ 标准行输出

　├ 错误行输出

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：40 有效耗时：0ms

var

s,str:ansistring;

a,f:array[0..9]of longint;

i,j,k,t,po,l,r:longint;

z:real;

x,y:longint;

begin

readln(s);

po:=pos(' ',s);

str:=copy(s,1,po-1);

val(copy(s,po+1,length(s)-po),k);

fillchar(a,sizeof(a),0);

fillchar(f,sizeof(f),0);

for i:=1 to length(str) do

begin

t:=ord(str[i])-ord('0');

inc(a[t]);

end;

for i:=1 to k do

begin

readln(x,y);

inc(f[x]);

end;

z:=1;

for i:=0 to 9 do

if a[i]>0 then begin

if a[i]>1 then begin

for j:=1 to a[i] do

z:=z*(f[i]+1);

end

else z:=z*(f[i]+1);

end;

write(z:0:0);

end.