给一个不多于三位的整数,求出它是几位数,并分别打印出各位上的数。(用pascal(if then else语句)解答
来源:百度知道 编辑:UC知道 时间:2024/05/14 02:52:08
program jiwei(input,output);
var n,a,b,c:integer;{不必用长整型}
begin read(n);{读n}
if n>=100 then{是否3位}
begin
writeln('weishu:3');{位数}
a:=n div 100;{百位}
b:=(n-100*a) div 10;{十位}
c:=n-100*a-10*b;{个位}
write(a,b:3,c:3)
end
else
if n>=10 then{是否2位}
begin
writeln('weishu:2');{位数}
b:=n div 10;{十位}
c:=n-10*b;{个位}
write(b,c:3)
end
else{必1位}
begin
writeln('weishu:1');{位数}
write(n){个位}
end;
end.
var a,b:longint;
begin
readln(a);
if a div 100<>0 then b:=3
else if a div 10<>0 then b:=2
else b:=1;
writeln(b,' wei shu');
if b=3 then writeln(a div 100,' ',a div 10 mod 10,' ',a mod 10);
i