#5364: jkljk6


lsfengjingxing (lsfengjingxing)


var
  n,i,j,sum : longint;
  s : string;
begin
    readln(n);
    for i :=1 to n do begin
      readln(s);
      sum :=0;
      for j :=1 to length(s) do sum :=sum+ord(s[j])-ord('0');
      sum :=sum mod 9;
      if sum=0 then writeln('9, no')
               else
      if sum=2 then writeln('2, yes')
               else writeln(sum,', no');
    end
end.

 

#5365: Re:jkljk6


grd (保持好奇心)


可不可以不要再貼程式碼了?哼!懶得理你
#8060: Re:jkljk6


a450 (要学会宽容)


var
  n,i,j,sum : longint;
  s : string;
begin
    readln(n);
    for i :=1 to n do begin
      readln(s);
      sum :=0;
      for j :=1 to length(s) do sum :=sum+ord(s[j])-ord('0');
      sum :=sum mod 9;
      if sum=0 then writeln('9, no')
               else
      if sum=2 then writeln('2, yes')
               else writeln(sum,', no');
    end
end.

 

就是啊 贴了还出题干什么