Question

Viết chương trình bằng Free Pascal

Nhập một số nguyên n.Tính tổng các chữ số của số n.Mình chưa học câu lệnh while-do nên đừng viết câu lệnh này nhé!

GIÚP MÌNH VỚI !MÌNH CẦN GẤP

Answer 1

uses crt;

var n,x,y,d,i,t: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(t);

readln;

end.

Answer 2

var s:ansistring;k,tam:longint;

begin

readln(s);

while length(s)<>0 do

begin

val(s[1],tam);

k:=k+tam;

delete(s,1,1);

end;

write(k);

readln

end.