Корпорация RoboCorp2021 занимается производством изделий с использованием роботов. Каждый из роботов имеет ряд возможностей по обработке деталей, и каждый из роботов может передать обработанную им деталь некоторым другим роботам. Роботы пронумерованы от 1 до N. Руководство RoboCorp2021 решило оптимизировать производство и улучшить роботов. Заметив, что самой долгой и затратной оказалась операция передачи деталей от одного работа другому роботу, руководство решило, чтобы одна и та же деталь по возможности не обрабатывалась разными роботами. О
Const V: String = '01';
Function DecToN(A: Longint; D: Byte) : String;
Begin If A > D - 1
then DecToN := DecToN(A div D, D) + V[(A mod D) + 1]
else DecToN := V [A + 1];
end;
Function NToDec(A: String; D: Byte): Longint;
Begin
If Length(a) > 0
then NToDec := Pos(A [Length(A)], V) - 1 + D * NToDec(Copy (A, 1, Length(A) - 1), D)
else NToDec := 0;
end;
Var F: String;
Begin
Write('Входной файл Input.txt: '); Readln(F);
If NToDec(F,2)
mod 7 = 0
then Writeln('Выходной файл Output.txt: 0',DecToN(NToDec(F,2) div 7,2))
else Writeln('Выходной файл Output.txt: 0');
end.