ZOJ1115

记得用字符串即可

 1 var s:string;sum,i:longint;
 2 begin
 3   readln(s);
 4   while(s<>'0') do
 5   begin
 6     sum:=0;
 7     for i:=1 to length(s) do
 8       sum:=sum+ord(s[i])-ord('0');
 9     while(sum>9)do
10     begin
11       str(sum,s);
12       sum:=0;
13       for i:=1 to length(s) do
14         sum:=sum+ord(s[i])-ord('0');
15     end;
16     writeln(sum);
17     readln(s);
18   end;
19 end.

 

posted @ 2015-08-02 21:23  汪立超  阅读(68)  评论(0)    收藏  举报