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".
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.
program demchuso;
uses crt;
var d:byte;
n:int64;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
d:=0;
while n>0 do
begin
d:=d+1;
n:=n div 10;
end;
write(‘Co ‘,d,’ 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.