我有一个问题

Question

我有一个问题,就是输入一个数字,怎么编个位+十位+百位,请高手帮助谢谢

Answer 1

a mod 10 + a div 100 + a mod 100 div 10

Answer 2

放个edit,button。procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
n,i,u,sumi:integer;
begin
s:=edit1.Text;
sumi:=0;
n:=length(s);
for i:=1 to n do
begin
u:=strtoint(copy(s,i,1));
sumi:=sumi+u;
end;
 showmessage(inttostr(sumi));
end;给分