uses crt; var n,i:longint; a:array[1..1000]of longint; function sumOfDigitsNumber(n:longint):longint; begin sumOfDigitsNumber:=0; while n<>0 do begin inc(sumOfDigitsNumber,n mod 10); n:=n div 10; end; end; begin clrscr; readln(n); for i:=1 to n do read(a[i]);readln; for i:=1 to n do begin write('Tong chu so cua ',a[i],': ',sumOfDigitsNumber(a[i])); writeln; end; readln; end.
program Hello; uses crt; var n,x,i:longint; a:array[1..1000000] of longint; function tong(a:longint):integer; var t:integer; begin while a > 0 do begin t:= t + a mod 10; a:= a div 10; end; tong:= t; end; begin readln(n); for i:= 1 to n do begin read(x); a[i]:= tong(x); end; for i:= 1 to n do write(a[i], ' '); readln; readln; end.
