考考你难题!谁会求1000的阶乘结果里含有多少个0呢?嘻嘻.50分啊

来源:学生作业帮助网 编辑:作业帮 时间:2024/10/06 12:49:37
考考你难题!谁会求1000的阶乘结果里含有多少个0呢?嘻嘻.50分啊
xN@_Ch1BM$1aB^舵0Ԃ[c0MCD&F-./)WpJI՝3=NJcVk,x֡36QyӘ܇vM=uALj:Wvר1b_)m^ XNSWHIU AnhD|'2eDmvQQ rLd먄4J2LpN8iL'f`0@$!EY @HLiࣁ7MjMIɀ6>rsX#8*̠ 5wB{c03ݏN9On'3yU Ȗ#:aBxK˫ඟ+Zo(=57LAJ

考考你难题!谁会求1000的阶乘结果里含有多少个0呢?嘻嘻.50分啊
考考你难题!谁会求1000的阶乘结果里含有多少个0呢?嘻嘻.50分啊

考考你难题!谁会求1000的阶乘结果里含有多少个0呢?嘻嘻.50分啊
procedure TForm1.Button1Click(Sender:TObject);var i,k,n:Integer;begin n:=0; // 0的个数 k:=1; // 阶乘结果 for i:=1 to 1000 do begin k:=k*i; while (k mod 10 = 0) do // 记录尾部0的个数,然后去掉 begin Inc(n); k:=k div 10; end; k:=k mod 1000000; // 高位部份没有影响 end; Button1.Caption:=IntToStr(n);end;运行结果是:249 查看原帖>>