Question

Гарри Поттер на досуге занимается исследованием свойств чисел .Однажды старом заклинании он увидел число 5476528769476958 7387647836748 и захотел узнать, а делиться ли оно на 3 ? Напишите программу , помогающую Гарри решить эту проблему для любого N(0<n<10^1000).

Answer 1

const
  d = 7;
 
var
  t: text;
  c: char;
  r: Integer;
 
begin
  assign(t, 'input.txt');
  reset(t);
  r := 0;
  while not eoln(t) do
    begin
      read(t, c);
      r := (r * 3 + ord(c) - ord('0')) mod d
    end;
  close(t);
  assign(t, 'output.txt');
  rewrite(t);
  if r = 0 then writeln(t, 'Да') else writeln(t, r);
  close(t)
end.