记录编号	79588	评测结果	AAAAAAA
题目名称	牛式	最终得分	100
用户昵称	铁策	是否通过	通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2013-11-05 22:33:10	内存使用	0.17 MiB

program P680;
var
n,i,j,k,l,m:longint;
a:array[0..9] of boolean;
function pd(i,j,k,l,m:integer):boolean;
var ls1,ls2,ls3,ls4,ls5,i1:longint;
begin
ls1:=i*100+j*10+k;
ls2:=l*10+m;
ls3:=ls1*m;
if (ls3 div 1000>0)or(ls3 div 100<0) then exit(false);
i1:=ls3 div 100;
if a[i1]=false then exit(false);
i1:=(ls3 mod 100) div 10;
if a[i1]=false then exit(false);
i1:=ls3 mod 10;
if a[i1]=false then exit(false);
ls4:=ls1*l;
if (ls4 div 1000>0)or(ls4 div 100<0) then exit(false);
i1:=ls4 div 100;
if a[i1]=false then exit(false);
i1:=(ls4 mod 100) div 10;
if a[i1]=false then exit(false);
i1:=ls4 mod 10;
if a[i1]=false then exit(false);
ls5:=ls1*ls2;
if (ls5 div 10000>0)or(ls5 div 1000<0) then exit(false);
i1:=ls5 div 1000;
if a[i1]=false then exit(false);
i1:=(ls5 mod 1000) div 100;
if a[i1]=false then exit(false);
i1:=(ls5 mod 100) div 10;
if a[i1]=false then exit(false);
i1:=ls5 mod 10;
if a[i1]=false then exit(false);
exit(true);
end;
begin
assign(input,'crypt1.in');
reset(input);
assign(output,'crypt1.out');
rewrite(output);
fillchar(a,sizeof(a),false);
readln(n);
for i:=1 to n do
begin
read(k);
a[k]:=true;
end;
n:=0;
for i:=1 to 9 do
  if a[i] then
    for j:=0 to 9 do
      if a[j] then
        for k:=0 to 9 do
          if a[k] then
            for l:=1 to 9 do
              if a[l] then
                for m:=0 to 9 do
                  if a[m] then
                  if pd(i,j,k,l,m) then inc(n);
writeln(n);
end.