Question

Написать программу, которая выполняет желание Пети и выводит 0, если число делится на 7, или выводит минимальное число, записанное в десятичной системе счисления, которое нужно добавить к исходному двоичному числу, чтобы получилось число кратное семи.
Петя Васечкин хочет выяснить, делится ли на семь двоичное число, состоящее не более чем из 10000 цифр

Answer 1

var
 r : longint;
 i, j, n : integer;
 s : array[1..10001] of byte;
 c : char;
begin
  assign(input,'input.txt');reset(input);
  assign(output,'output.txt');rewrite(output);
  n:=0;
  repeat
    read(c);
    if c<>'.' then
    begin
      n:=n+1;
      s[n]:=ord(c)-48;
    end;
  until c='.';
  j:=1;
  r:=0;
  for i:=n downto 1 do
  begin
    r:=r+s[i]*j;
    j:=j*2;if j=8 then j:=1;
  end;
  r:=r mod 7;
  if r<>0 then r:=7-r;
  write(r)
end.