ac1243.pas

来自「uralcode」· PAS 代码 · 共 12 行

program ural1243;
var
  c:char;
  r:byte;
begin
  repeat
    read(c);
    r:=(r*10+ord(c)-48) mod 7;
  until eoln;
  writeln(r);
end.