一个菜鸟问题，判断一个数的位数

您所在位置：社区首页 — PASCAL语言讨论区 — 一个菜鸟问题，判断一个数的位数

主题：一个菜鸟问题，判断一个数的位数

dong1994 [专家分：0] 发布于 2009-07-20 22:07:00

哪位大侠叫一下如何判断一个数的位数。

11 楼

小心哦哦 [专家分：140] 发布于 2012-05-06 10:00:00

var
s:string;
i:integer;
begin
read(i);
str(i,s);
write(length(s));
end.

12 楼

liangbinLB [专家分：0] 发布于 2012-07-10 13:31:00

var
   a,b:longint;
begin
    readln(a);
    while a<>0 do
    begin
       b:=b+1;
       a:=a div 10;
    end;
    writeln(b);
end.

您尚未登录，请登录后再回复。点此登录或注册