program fa;
var
  n,i,j,k:integer;
  ch:char;
begin
  read(ch);
  while ch<>'0' do
  begin
  n:=0;
  while ch<>#13 do
  begin
   if (ch>='0') and (ch<='9') then n:=n+ord(ch)-48;
   read(ch);
  end;
  read(ch);
  writeln((n-1) mod 9+1);
    read(ch);
  end;
end.

• 过了,错的原因是输入文件每行结尾是#10,没有#13!!! (0) richardhuang 2004-05-11 22:40:45
  • 上次说的是不是你? (11) hawk 2004-05-11 23:23:33