Question

Bài 1: Viết chương trình nhập 1 số nguyên dương n có 3 chữ số.Hãy thông báo ra màn hình tổng các chữ số của nó. Bài 2: giống bài trên nhưng là 5 chữ số. Giúp mình với ạ, mình cần gấp :

Answer 1

Bài 1: 

uses crt;

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

st:string;

begin

clrscr;

readln(n);

str(n,st);

d:=length(st);

t:=0;

for i:=1 to d do 

  begin

val(st[i],x);

t:=t+x;

end;

writeln(t);

readln;

end.