给一个不多于三位的整数,求出它是几位数,并分别打印出各位上的数.（用pascal（if then else语句）解答给一个不多于三位的整数,求出它是几位数,并分别打印出各位上的数（用pascal（if then else

给一个不多于三位的整数,求出它是几位数,并分别打印出各位上的数.（用pascal（if then else语句）解答给一个不多于三位的整数,求出它是几位数,并分别打印出各位上的数（用pascal（if then else
给一个不多于三位的整数,求出它是几位数,并分别打印出各位上的数.（用pascal（if then else语句）解答
给一个不多于三位的整数,求出它是几位数,并分别打印出各位上的数（用pascal（if then else语句）解答）?

给一个不多于三位的整数,求出它是几位数,并分别打印出各位上的数.（用pascal（if then else语句）解答给一个不多于三位的整数,求出它是几位数,并分别打印出各位上的数（用pascal（if then else
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.

program panduan;var n,sign,x,y,z:longint;begin readln(n); sign:=100; if n<=9 then sign:=1; if (n<=99) and (sign<>1) then sign:=2; if sign=100 then sign:=3; writeln('Ta Shi ',sign,'weishu.'); if...

全部展开

program panduan;var n,sign,x,y,z:longint;begin readln(n); sign:=100; if n<=9 then sign:=1; if (n<=99) and (sign<>1) then sign:=2; if sign=100 then sign:=3; writeln('Ta Shi ',sign,'weishu.'); if sign=1 then write(n); if sign=2 then begin x:=n div 10; y:=n mod 10; write(x,' ',y); end; if sign=3 then begin x:=m div 100; y:=m mod 100; z:=y mod 10; y:=(y-z) div 10; write(x,' ',y,' ',z,' '); end;end.

收起

直接用
length(chr(n));
就好了嘛...

var
s1:string;
l1,i,j,k,n:longint;
begin
readln(s1);
l1:=length(s1);
writeln(l1);
for i:=1 to n do write(s1[i],' ');
writeln;
end.
多么的简单，用 if else 干吗？ 学小学除法？

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,' w...

全部展开

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);
if b=2 then writeln(a div 10,' ',a mod 10);
if b=1 then writeln(a);
readln;
end.

收起