Вдоме у кати установили новый лифт эксперементальной модели. в этом лифте все кнопки заменены двумя кнопками 1 и 2. при нажатии на 1 лифт поднимается на один этаж выше, при нажатии на 2 лифт спускается на один этаж ниже. кате понравился лифт и она на нём каталась. известна последовательность цифр: 112112112111 1) на каком этаже катя вошла в лифт? 2) на каком этаже катя побывала три раза? 3) сколько раз катя побывала на 3 этаже? 4) на каком этаже катя вышла? 5) сколько у кати этажей в доме?

предположим, что зашла она на первом этаже, тогда судя по схеме

1 -> 2 -> 3 -> 2 -> 3 -> 4 -> 3 -> 4 -> 5 -> 4 -> 5 -> 6 -> 7

1) на каком этаже катя вошла в лифт?

не известно, но как минимум на 6 этажей ниже максимального

2) на каком этаже катя побывала три раза?

на 3 и 4, если предполагать, что начала с первого

3) сколько раз катя побывала на 3 этаже?

3 раза, если предполагать, что начала с первого

4) на каком этаже катя вышла?

на 7, если предполагать, что начала с первого

5) сколько у кати этажей в доме?

минимум 7

var

  a, b, c: integer;

begin

  writeln('введите числа a, b, c');

  readln(a, b, c);

  if a mod 2 = 0 then writeln('a - четное число')

  else writeln('a - нечетное число');

  if b mod 2 = 0 then writeln('b - четное число')

  else writeln('b - нечетное число');

  if c mod 2 = 0 then writeln('c - четное число')

  else writeln('c - нечетное число');

  readln; //если не в turbo pascal, то можно убрать

end.