program meomeo119980; uses crt; var n :integer; S:longint; r :byte; begin clrscr; write('Nhap so n: ');readln(n); S:=0; Repeat r:=n mod 10; S:=S+r; n:=n div 10; Until n=0; writeln(S); readln; end.
uses crt; var d:text; s:string; tong,i,a,e:longint; begin clrscr; write('Nhap 1 so tu nhien: ');readln(s); for i:=1 to length(s) do begin val(s[i],a,e); tong:=tong+a; end; writeln('Tong cac chu so cua so do: ',tong); readln end.
