ac1180.pas

来自「Ural(Acm.timus.ru)题解 By Maigo大牛」· PAS 代码 · 共 18 行

program ural1180;
var
  c:char;
  m:byte;
begin
  m:=0;
  repeat
    read(c);
    m:=(m+ord(c)) mod 3;
  until eoln;
  if m=0 then
    writeln(2)
  else begin
    writeln(1);
    writeln(m);
  end;
end.