Đáp án: VCT nhập vào số nguyên n đếm xem n có bao nhiêu chữ số - Uses crt;Var i,n,demlongint;BeginClrScr;dem=0;Write(ʹNhap so nguyen n ʹ);ReadLn(n);n=abs(n);while n>0 DoBeginn=n div 10;dem=dem+1;end;writeln(ʹso ʹ,n,ʹ co ʹ,dem,ʹ chu soʹ);ReadlnEnd

Uses crt;Var i,n,demlongint;BeginClrScr;dem=0;Write(ʹNhap so nguyen n ʹ);ReadLn(n);n=abs(n);while n>0 DoBeginn=n div 10;dem=dem+1;end;writeln(ʹso ʹ,n,ʹ co ʹ,dem,ʹ chu soʹ);ReadlnEnd

Uses crt;Var i,n,demlongint;BeginClrScr;dem=0;Write(ʹNhap so nguyen n ʹ);ReadLn(n);write(ʹso ʹ,n,ʹ co ʹ);n=abs(n);while n>0 DoBeginn = n div 10;dem=dem+1;end;writeln(dem,ʹ chu soʹ);ReadlnEnd

nambinhorgan

2 năm trước

VCT nhập vào số nguyên n. đếm xem n có bao nhiêu chữ số

Xem đáp án

61 lượt xem

2 câu trả lời

Mùa Xuân Cung Đàn

2 năm trước

Uses crt;
Var i,n,dem:longint;
Begin
ClrScr;
dem:=0;
Write('Nhap so nguyen n: ');ReadLn(n);
n:=abs(n);
while n>0 Do
Begin
n:=n div 10;
dem:=dem+1;
end;
writeln('so ',n,' co ',dem,' chu so');
Readln
End.

thaotrung1978

2 năm trước

Uses crt;
Var i,n,dem:longint;
Begin
ClrScr;
dem:=0;
Write('Nhap so nguyen n: ');ReadLn(n);
write('so ',n,' co ');
n:=abs(n);
while n>0 Do
Begin
n := n div 10;
dem:=dem+1;
end;
writeln(dem,' chu so');
Readln
End.