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); 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.
program demchuso;
uses crt;
var n:int64;
d:byte;
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);
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.