Продолжите сказку жили были клавиатура монитор память и процессор жили они дружно пока не возник спор кто из них главнее

Александр Есенин
Жили – были  клавиатура, монитор, память и  процессор. Жили  они  дружно,  пока  не  возник у  них спор, кто  из них  главнее.
   Клавиатура  говорит:
- Я  главнее, чем  вы.  Я  нужна  для ввода  числовой  и   текстовой   информации.  Я  имею  104  клавиши   и  3  световых   индикатора  в  правом  верхнем  углу,  информирующих   о  режимах  работы.  У  меня   есть  несколько  групп  клавиш:  алфавитно-цифровые,  клавиши   редактирования  и  листания  документов,  управления   курсором,  специальные,  функциональные,  Windows – клавиши, цифровой  блок,  клавиши  управления  питанием.  Без  меня  вы  не  сможете  ввести  информацию,  даже  на  калькуляторе   не  посчитаете,  т.к.  цифры  я  ввожу – то.
- Да, это  ты  права, - говорит монитор. – Но  я  всё  равно  главнее.  Смотрите,  если   информация  вводится   при клавиатуры,  то  где  она  выводится?  Я, я, а  не  она  являюсь   универсальным  устройством  вывода  информации.  Информация   на   моём  экране  представляется      в  виде  растрового  изображения,  которое  формируется   из  отдельных   точек   (пикселей). Качество  изображения  определяется   моей  разрешающей Так что главный  только  я!
- Куда тебе! – говорит  память. – Я самая  главная. Данные  и  программы  хранятся  в  оперативной (внутренней) памяти, т. е.  во   мне. Я   представляю   собой   последовательность  пронумерованных,  начиная  с  нуля,  ячеек.  Мой   объём  можно  определить  по  формуле Jоп.=Jяч.  •  N .  А  у  вас  так  нельзя!  Меня  называют  «мозгом»!   Значит,  я  главная!
-  Вас  послушаешь, я  вообще  тогда не  нужен!  А  на  самом – то  деле,  я  ведь  самый  главный!  Я, процессор!  Я  центральное  устройство  компьютера,   которое  обрабатывает  данные  в  соответствии  с  заданной  программой.  Я  со  всеми  вами  работаю. Я  самый  главный!
-Нет, я!
-Нет, я!
-Нет, я!
-Нет, я!
А  человек  спор  слышал  и  сказал: 
-Что  вы  спорите?  Вы  же  сами  ответили  на  вопрос,  кто  из  вас  главнее!
-Мы  ответили?
-Вы. Главные  вы  все. Только в  совокупности, когда  вы  все  вместе, компьютер  будет  работать! Кто  будет  вводить  информацию, если  не   клавиатура, и  выводить, если  не  монитор?  Кто  будет  хранить  её,  если  не  память? Кто  будет  обрабатывать данные  в  соответствии с  заданной  программой,  если  не    процессор?    Не  знаете? Вот! Так  что  вы  зря спорите.  Ведь  главные  вы   все!
Подумали  клавиатура, монитор, память  и  процессор  и  помирились. С  тех  пор  они  живут  счастливо. Ведь  сила  их – в  единстве! 

200₁₀ → x₂

Делим число в десятичной системе на основание числа, которое мы хотим получить, то есть на 2:

200 / 2 = 100 (0), где 0 - это остаток. Действительно, 2 · 100 + 0 = 200

100 / 2 = 50 (0)

50 / 2 = 25 (0)

25 / 2 = 12 (1), 2 · 12 + 1 = 24 + 1 = 25. Это можно представить так: у Вас есть 25 яблок и 2 друга, между которыми нужно поровну разделить все яблоки. Вы можете обоим дать только по 12 яблок, а останется 1. Это и будет остаток.

12 / 2 = 6 (0)

6 / 2 = 3 (0)

3 / 2 = 1 (1)

1 / 2 = 1 (1), применим на том же примере с яблоками: у нас есть одно яблоко и 2 друга, а нужно разделить количество яблок поровну, не деля яблоко пополам. У Вас сделать это не получится, поэтому у Вас остаётся 1 яблоко, то есть остаток.

Теперь "собираем" остатки снизу вверх:

11001000₂ - это и будет наш двоичный код.

ответ

11001000

1. "Традиционный" вариант
//PascalABC.Net 3.0, сборка 1052
function NOD(a, b: longint): longint;
begin
  while a <> b do if a > b then a := a - b else b := b - a;
  NOD := a
end;

var
  f: Text;
  tNOD: longint;

begin
  Assign(f, 'input.txt'); Reset(f);
  if not Eof(f) then Readln(f, tNOD);
  var n: longint := 1;
  while (not Eof(f)) and (n > 0) and (tNOD > 1) do
  begin
    Readln(f, n);
    if n <> 0 then tNOD := NOD(tNOD, n)
  end;
  Close(f);
  Assign(f, 'output.txt'); Rewrite(f);
  Writeln(f,tNOD);
  Close(f)
end.

2. "Современный" вариант
//PascalABC.Net 3.0, сборка 1052
function NOD(a, b: integer): integer;
begin
  while a <> b do if a > b then a -= b else b -= a;
  Result := a
end;

var
  tNOD: integer := 0;
  n: integer;

begin
  foreach var sn in Readlines('input.txt') do
  begin
    n := StrToInt(sn);
    if tNOD = 0 then tNOD := n
    else
    if n = 0 then break else tNOD := NOD(tNOD, n);
  end;
  WriteAllText('output.txt', IntToSTR(tNOD));
end.

Пример файла input.txt находится во вложении, контрольный результат 4096