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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/08 18:41:47
考考你难题!谁会求1000的阶乘结果里含有多少个0呢?嘻嘻.50分啊

考考你难题!谁会求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 查看原帖>>