محاسبه کردن تعداد ارقام عدد با استفاده از Case در پاسکال

[amirm1988]

با استفاده از برنامه نویسی پاسکال و با استفاده از دستور case برنامه ای بنویسید که n را گرفته و سپس مشخص کند که n چند رقمی است؟ لطفا

 

[the_king]

با استفاده از برنامه نویسی پاسکال و با استفاده از دستور case برنامه ای بنویسید که n را گرفته و سپس مشخص کند که n چند رقمی است؟ لطفا

لطفا در عنوان تاپیک ها به موضوع برنامه اشاره کنید.

USES CRT;
VAR
    n, digits : INTEGER;
BEGIN
    CLRSCR;
    WRITE ('Please enter n : ');
    READLN (n);
    WRITE ('Count of digits = ');
    CASE n OF
        -9..9 :
            digits := 1;
        10..99, -99..-10 :
            digits := 2;
        100..999, -999..-100 :
            digits := 3;
        1000..9999, -9999..-1000 :
            digits := 4;
        10000..32767, -32768..-10000 :
            digits := 5;
    END;
    WRITELN(digits);
    READKEY;
END.