pascal n!的最后一个非0的数字

[复制链接]
查看11 | 回复1 | 2010-7-14 14:32:43 | 显示全部楼层 |阅读模式
讲的算法要易懂一些,并附上pas程序。

回复

使用道具 举报

千问 | 2010-7-14 14:32:43 | 显示全部楼层
用一维数组来做这道题比较简单吧,而且不会超界。从2~n往数组里乘,每有一个十以上的数就进一,其实跟乘法式子很像。最后再从个位数往后判断非零数varx,y,z,n:longint;a:array[1..1000] of integerbeginreadln(n);a[1]:=1;z:=1;for x:=2 to n do
for y:=1 to z do
begin
a[y]:=a[y]*x;
if a[y]>9 then
begin
a[y+1]:=a[y] div 10;
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行