作业帮 > 综合 > 作业

Free pascal怎么求一个数的位数

来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/18 03:54:26
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怎么求一个数的位数 FREE PASCAL,输入两个数,求最小公倍数 Free pascal 所有能被5整除的四位数.求每步的解释. [free pascal]完全数 free pascal 马鞍数 一个很简单的free pascal问题 求一道free pascal题目的源代码 求 free Pascal 求Free Pascal程序 Free Pascal问题 任意输入一个四位数,输出的结果是其各个数位上的数字之和 用free pascal编程：输入两个数,求他们的最大公因数和最小公倍数 free pascal 完全平方数