clrscr; write('Nhap so nguyen duong nhieu hon 1 chu so:'); readln(n); tong:=0; dem:=0; while n>0 Do begin inc(dem); tong:=tong+n MOD 10; n:=n DIV 10; end; writeln('Tong cac chu so:',tong); writeln('So cac chu so=',dem); readln; end.
viết chương trình tính tổng các chữ số của số tự nhiên n:viết:var n,dem,tong:Longint; begin; clrscr; write('Nhap so nguyen duong nhieu hon 1 chu so:'); readln(n); tong:=0; dem:=0; while n>0 Do begin inc(dem); tong:=tong+n MOD 10; n:=n DIV 10; end; writeln('Tong cac chu so:',tong); writeln('So cac chu so=',dem); readln; end.
