VCT nhập vào n, và in ra màn hình: tổng các chữ số của n số chữ số của n (đếm)

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