xyy 2012-11-06 03:40:00
点我顶贴
收藏
删除
var
f:array[0..9]of integer;
ff:array[0..2000]of integer;
n,i,j,s,max:integer;
function you(k:integer):integer;
var j:integer;
begin
j:=0;
while k>0 do
begin
j:=j+f[k mod 10];
k:=k div 10;
end;
you:=j;
end;
function can(x,y:integer):boolean;
var
z,sum:integer;
begin
z:=x+y;
sum:=ff[x]+ff[y]+ff[z];
if sum=n-4 then can:=true
else can:=false;
end;
begin
read(n);
s:=0;
ff[0]:=6;
f[0]:=6;
f[1]:=2;
f[2]:=5;
f[3]:=5;
f[4]:=4;
f[5]:=5;
f[6]:=6;
f[7]:=3;
f[8]:=7;
f[9]:=6;
for i:=1 to 2000 do ff[i]:=you(i);
for i:=0 to 999 do
for j:=0 to 999 do
begin
if can(i,j) then
begin
inc(s);
end;
end;
writeln(s);
end.
在另一个网站上交竟然AC了。。。