ac1014.pas

来自「某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请」· PAS 代码 · 共 15 行

program tju1014;
var
  n,f,c:longint;
begin
  repeat
    read(n);
    f:=5;c:=0;
    while f<=n do begin
      inc(c,n div f);
      f:=f*5;
    end;
    writeln(c);
  until seekeof;
end.