d124. 3的倍数 | From: [60.55.10.248] | 發表日期 : 2014-05-18 09:00

var

  a,b,c,i,j,l:longint;

  z:ansistring;

begin

  while not eof do begin

   readln(z);

   a:=trunc(sqrt(length(z)));

   b:=length(z)-sqr(a);

   if a<>1 then begin

    for i:=1 to a do begin

     for j:=1 to a do c:=c+ord(z[(i-1)*a+j])-48;

    end;

    for l:=1 to b do c:=c+ord(z[a*a+l])-48;

    if c mod 3=0 then writeln('yes')

                 else writeln('no');

   end

           else begin

    c:=ord(z)-48;

    if c mod 3=0 then writeln('yes')

                 else writeln('no');

   end;

  end;

end.