Đang tải... (xem toàn văn)
Bài 3: VCT nhập vào số nguyên n.[r]
(1)Bài 3: VCT nhập vào số nguyên n Tính tổng các chữ số n program ct; var s,n,x,p:integer; begin write('nhap n:'); readln(n); x:=n; s:=0; repeat s:=s+n mod 10; n:=n div 10; until n=0; writeln('tong cac chu so cua so',x,'la:',s); readln end (2)