На отдельном листке бумаги в клетку выполните алгоритм. Отметьте правильный ответ. Исполнителю Чертежник был задан следующий алгоритм.

нач
нц 2 раз
сместиться на вектор (-1, -2)
сместиться на вектор (1, 1)
сместиться на вектор (2, 2)
кон
Чтобы Чертежник оказался в той же точке, что и после выполнения алгоритма, алгоритм можно заменить командой:
1) Сместиться на вектор (2,4)
2) Сместиться на вектор (-4,0)
3) Сместиться на вектор (4,0)
3) Сместиться на вектор (2,4)
Надо решение

Для того, чтобы узнать в каком подъезде находится квартира, разделим ее номер на количество квартир в подъезде, на 36. Запомним частное и остаток от деления. Пусть, к примеру, нам дана квартира 85. Делим на 36. Получаем частное 2 и в остатке 13. 2 - это номер подъезда. Теперь разделим 13 на 4 (число квартир на этаже), запомним частное и остаток. В результате получим 3 и остаток 1. Значит, наша квартира на 3-м этаже, и если номера квартир идут слева направо, то квартира будет крайняя слева.

Итак, квартира с номером 85 находится во втором подъезде, на 3-м этаже нашего дома.

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadSeqInteger('Вводите числа:',ReadInteger('N='))
      .Where(x->Abs(x).Between(10,99)).Count)
end.

Пример
N= 5
Вводите числа: 23 -4 100 -42 16
3

begin
  var k:=ReadInteger('K=');
  Writeln(ReadSeqInteger('Вводите трехзначные числа:',ReadInteger('N='))
      .Where(m->Abs((m mod 10)*(m div 100)*(m div 10 mod 10))=k).Count)
end.

Пример
K= 8
N= 10
Вводите трехзначные числа: 142 712 426 -222 318 916 107 932 -116 473
2