PersonalCorpus 版 (精华区)

155608 06:55:22 6 Mar 2002
Bozhang,HIT,P.R.China 1180 Pascal Accepted 0.02 sec 49K


var
    c:char;
    i,j:integer;
begin
    i:=0;
    while not eof(input) do begin
        read(c); if (c<>' ') and (c<>chr($0D)) and (c<>chr($0A)) then i:=i+o
rd(c);
    end;
    if i mod 3 =0 then writeln(2) else begin writeln(1); writeln(i mod 3) en
d;
end.