火柴棒等式_lcwy_新浪博客企业库|免费b2b网站

火柴棒等式_lcwy_新浪博客

此题xx之水……

枚举0到800吧……

OK了！行了！

原程：

const a:array[0..9] of longint=(6,2,5,5,4,5,6,3,7,6);
var i,j,k,n,s:longint;
function huan(x:longint):longint;
var i,j,k:longint;
begin
huan:=0;
i:=x;
repeat
    j:=i mod 10;
    i:=i div 10;
    inc(huan,a[j]);
until i=0;
end;
begin
s:=0;
readln(n);
for i:=0 to 800 do
    for j:=0 to 800 do
      begin
        k:=i+j;
        if huan(i)+huan(j)+huan(k)=n-4 then inc(s);
      end;
writeln(s);
end.

已投稿到：

郑重声明：资讯【火柴棒等式_lcwy_新浪博客】由发布，版权归原作者及其所在单位，其原创性以及文中陈述文字和内容未经(企业库qiyeku.com)证实，请读者仅作参考，并请自行核实相关内容。若本文有侵犯到您的版权，请你提供相关证明及申请并与我们联系（qiyeku # qq.com）或【在线投诉】，我们审核后将会尽快处理。

—— 相关资讯 ——