Question

Viết Chương Trình nhập 2 số n bất kỳ sau đó in ra tổng các chữ số của n

Answer 1

Sửa đề: Nhập 1 số n bất kỳ 

uses crt;

var st:string;

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

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(t);

readln;

end.