Question

Lập tính tính tổng : 

 Nhập số nguyên N vào từ bàn phím . Tính tổng các chữ số của N . 

Answer 1

uses crt;

var n,i,t,x,y,d:integer;

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

str(n,st);

d:=length(st);

t:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

t:=t+x;

end;

writeln('Tong cac chu so cua ',n,' la: ',t);

readln;

end. 

Answer 2

mang tính chất test danh hiệu nhưng vẫn đúng nhá