program ph; uses crt; var n, x, m, a, k, s: longint; begin clrscr; write('n = '); readln(n); k:=n; m:=0; while n<>0 do begin x:= n mod 10; m:=m+x; s:=s+1; a:=a*10+x; n:= n div 10; end; writeln('So doi xung: ', a); writeln('Tong cac chu so cua ', n, ' la: ', m); writeln(k, ' co ', s, ' chu so'); readln end.
uses crt; var n,a,x,m,s: integer; begin clrscr; write('Nhap n ='); readln(n); while n<>0 do begin x:=n mod 10; m:=m+x; s:=s+1; a:=a*10+x; n:=n div 10; end; writeln('So dao nguoc la:',a); writeln('Tong cac chu so cua n la:',m); writeln('Co ',s,' chu so'); readln; end.
