uses crt;
var n,m:longint;
tong:byte;
BEGIN
clrscr;
write('Nhap n: ');
readln(n);
tong:=0;m:=n;
while m>0 do begin tong:=tong+m mod 10;
m:=m div 10;
end;
writeln('Tong cac chu so cua ',n,' la: ',tong);
readln
END
Đếm số chữ:
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
Beginn :
= n div 10;
dem:=dem+1;
end;
writeln(dem,' chu so');
Readln
End
