用PASCAL编程序1.编写一函数,求出实数的小数部分位数.例如,实数3.14有2位小数；68.6634有4位小数2.编写一函数,求出N!的末尾含有多少个0

来源：学生作业帮助网编辑：作业帮时间：2024/05/09 04:33:51

用PASCAL编程序1.编写一函数,求出实数的小数部分位数.例如,实数3.14有2位小数；68.6634有4位小数2.编写一函数,求出N!的末尾含有多少个0
用PASCAL编程序
1.编写一函数,求出实数的小数部分位数.例如,实数3.14有2位小数；68.6634有4位小数
2.编写一函数,求出N!的末尾含有多少个0

用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.

用PASCAL编程序1.编写一函数,求出实数的小数部分位数.例如,实数3.14有2位小数；68.6634有4位小数2.编写一函数,求出N!的末尾含有多少个0 用 Pascal 编写一个程序将十进制整数n转换为二进制数.用 Pascal 编写加说明编个程序具体要求在下边要用到数据结构的知识请用C或PASCAL编写一个函数BIPARTITE判断一个连通无向图G是否是二部图,并分析程序的时间复杂度.设G用二维数组A来表示,大小为n*n（n为结点个用C语言编程序写一个函数,判断输入年份是否为闰年,并编写主函数测试用pascal编写程序输入十个整数,统计大于0的数的个数.用pascal编写程序输入十个整数,统计大于0的数的个数. PASCAL程序全1数字全1 数字请用PASCAL编写,输入一个奇数P(P 编一函数过程fact用于计算阶乘,再编写程序调用该函数过程,求1~10的阶乘之和用pascal输出语句编写下列图形程序 1 121 12321 12343211121123211234321 用PASCAL语言编写一个求1+2+3+...+N的程序用matlab编写一个程序：求出200以内的质数, 用C语言编程：编一程序,求出所有各位数字的立方和等于1099的3位整数. 用 free pascal 编写程序,输出一列图形（字母金字塔） a a b a b c …… 请高手用Pascal语言编写下列程序输出杨辉三角的前N行(N pascal关于因式分解的有关问题用pascal语言编出一个程序输入：100输出：2*2*5*5急用! 如果一个数从左边读和右边读都是同一个数,就称为回文数.例如,686就是一个回文数.编一个程序,求出1000以内所有的既是回文数同时又是素数的自然数.请用c++语言编写并回答用pascal编求出1—100的5的倍数或7的倍数的和 Free Pascal问题,用函数和过程解.1.找出由键盘任意输入三个整数中的最大数的过程.2.输入三个不同的整数,按由小到大排列,用过程编程.3.用不带参数的过程和带参数的过程分别编写一个程序,实编一程序,求出所有各位数字的立方和等于1099的三位整数.