作业帮 > 综合 > 作业

用PASCAL编程序1.编写一函数,求出实数的小数部分位数.例如,实数3.14有2位小数;68.6634有4位小数2.编

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/14 04:19:55
用PASCAL编程序
1.编写一函数,求出实数的小数部分位数.例如,实数3.14有2位小数;68.6634有4位小数
2.编写一函数,求出N!的末尾含有多少个0
1.var n:real;m:integer;
begin
read(n);
if trunc(n)=n then writeln(0);
else
begin
m:=0;
repeat
inc(m);
n:=n*10;
until trunc(n)=n;
writeln(m);
end;
end.
2.
var m,n,five,i,s:integer;
{n是输入的数,m计算出n约是5的几次方,i计数,five是计算5的i次方}
begin
read(n);m:=trunc(ln(n+1)/ln(5));if n>4 then five:=1;
for i:=1 to m do begin
five:=five*5;
s:=s+n div five;
end;
writeln(s);
end.