ac1129.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· PAS 代码 · 共 23 行

program tju1129;
var
  n:longint;
function count(x:longint):longint;
  var
    y:longint;
    s:string;
  begin
    if x<10 then
      count:=x+ord(x<7)
    else begin
      y:=x div 10-1;
      str(y+1,s);
      count:=count(y)*9+ord(pos('7',s)=0)*count(x mod 10);
    end;
  end;
begin
  repeat
    read(n);
    writeln(count(n)-1);
  until seekeof;
end.