Free pascal怎么求一个数的位数输入随意一个数,输出它的位数.还有,这个题请不要用字符串做,只能用整数的变量

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/28 18:11:16
Freepascal怎么求一个数的位数输入随意一个数,输出它的位数.还有,这个题请不要用字符串做,只能用整数的变量Freepascal怎么求一个数的位数输入随意一个数,输出它的位数.还有,这个题请不要

Free pascal怎么求一个数的位数输入随意一个数,输出它的位数.还有,这个题请不要用字符串做,只能用整数的变量
Free pascal怎么求一个数的位数
输入随意一个数,输出它的位数.
还有,这个题请不要用字符串做,只能用整数的变量

Free pascal怎么求一个数的位数输入随意一个数,输出它的位数.还有,这个题请不要用字符串做,只能用整数的变量
var
n,ans:longint;
begin
readln(n);
ans:=0;
while n>0 do
begin
inc(ans);
n:=n div 10;
end;
writeln(ans);
end.

Free pascal怎么求一个数的位数输入随意一个数,输出它的位数.还有,这个题请不要用字符串做,只能用整数的变量 pascal语言编程问题(free pascal求1—N中的素数的个数.(1 FREE PASCAL,输入两个数,求最小公倍数 Free pascal 所有能被5整除的四位数.求每步的解释. free pascal 程序:打印由1,2,3,4四个数字组成的所有四位数,并统计个数. Free Pascal语言.求10个数的最大值和最小值,我们循环语句的作业,帮看下, 用free pascal编程:输入两个数,求他们的最大公因数和最小公倍数 pascal求N以内能被3,7整除的数的和用free pascal 求一个数(n)以内能被3整除且能被7整除的所有数的和.要源码 用pascal求一个数,这个数是11的倍数,百位数加十位数等于千位数,并且百位数加十位数是完全平方数. 急求free pascal错误表本人急需要free pascal错误表,一定是要带中文的,所用的free pascal版本为1.0.6,一定要是free pascal,而不是turbo pascal或者其他的 由1..9这九个数字组成的九位数(无重复数字)能被11整除,求最大,最小值要free pascal的,别的不要! free pascal怎样算集合元素个数 Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal? pascal求两个数的最小公倍数 求平均数 用free pascal输入n个数,求出这些数的平均数.输入:只有一行共有n个数,数与数之间用一个空格隔开 (1 Free Pascal 如何求出一个数组中的有效元素个数 难道高精度计算一般要转成字符型来求数的长度?如a:(0,0,0,0,1,0,1)那么这个数是101 有效位数就是3位如果有这么一个函数就好了……求具体程 free pascal 求最大公约数与最小公倍数 free pascal 求最大公约数与最小公倍数