洗牙多久一次合适:统计1000!

来源:百度文库 编辑:神马品牌网 时间:2024/04/20 21:46:17
统计1000!末尾有多少个0。其中1000!=1´2´3´…´1000。实际上我们只要统计1000!有多少个因子10。由于10=5´2,因而只需统计有多少个因子5和2。显然在1~1000的所有数中,5的因子个数比2的因子个数少。因此,只要统计1~1000的所有数中共有多少个因子5就行了。

program Project1;

{$mode objfpc}{$H+}

var
i,n,m: QWord;

begin
WriteLn('Input N:');
ReadLn(n);
i := 5;
m := 0;
while i <= n do
begin
m := m + (n div i);
i := i * 5;
end;

WriteLn(m);
ReadLn();

end.

不明白