KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
VCT nhập vào số nguyên n. đếm xem n có bao nhiêu chữ số
By Gianna
VCT nhập vào số nguyên n. đếm xem n có bao nhiêu chữ số
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.
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.
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.
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.