Миша живет на n-м этаже. Когда Миша заходит в подъезд, он смотрит, на каком этаже
в этот момент находится лифт и решает, вызвать лифт или пойти по лестнице.
Сегодня лифт находится на k-м этаже. Миша заходит в подъезд на 1 этаже. Он подни-
мается на один этаж за a секунд. Лифт перемещается на один этаж за b секунд. Временем
входа в лифт и выхода из лифта, а также перемещения к лестнице и обратно можно пре-
небречь.
Мише нужно как можно быстрее попасть домой. Помогите Мише принять решение - идти ему по лестнице или ехать на лифте. (Программа Pascal ABC)

Давайте разберем задачу и составим алгоритм для решения с помощью программы на PascalABC.

Алгоритм решения:

1. Входные данные:

   • $n$: этаж, на который нужно попасть.
   • $k$: этаж, на котором находится лифт.
   • $a$: время подъема на один этаж по лестнице (в секундах).
   • $b$: время подъема лифта на один этаж (в секундах).

2. Подсчеты:

   • Время, необходимое для подъема по лестнице: $T_{\text{stair}} = a \times (n - 1)$, так как Миша начинает с 1 этажа.
   • Время, необходимое для подъема на лифте:
     • Время, чтобы лифт доехал до 1 этажа: $T_{\text{to\_1}} = b \times |k - 1|$.
     • Время, чтобы лифт доехал от 1 этажа до $n$-го этажа: $T_{\text{lift\_to\_n}} = b \times (n - 1)$.
     • Полное время на лифте: $T_{\text{lift}} = T_{\text{to\_1}} + T_{\text{lift\_to\_n}}$.

3. Решение:

   • Сравнить $T_{\text{stair}}$ и $T_{\text{lift}}$.
   • Если $T_{\text{stair}} \leq T_{\text{lift}}$, то выбрать лестницу, иначе — лифт.

4. Вывод результата:

   • Выводим, что быстрее: идти по лестнице или ехать на лифте.

Реализация программы на PascalABC:

pascal
program MishaLiftOrStairs;
var
  n, k: integer; // Этаж Миши и этаж лифта
  a, b: integer; // Время на 1 этаж по лестнице и на 1 этаж лифтом
  T_stair, T_lift, T_to_1, T_lift_to_n: integer;
begin
  // Ввод данных
  writeln('Введите этаж, на который нужно попасть (n):');
  readln(n);
  writeln('Введите этаж, на котором находится лифт (k):');
  readln(k);
  writeln('Введите время подъема на 1 этаж по лестнице (a):');
  readln(a);
  writeln('Введите время подъема на 1 этаж лифтом (b):');
  readln(b);
  // Рассчитать время на лестнице
  T_stair := a * (n - 1);
  // Рассчитать время на лифте
  T_to_1 := b * abs(k - 1); // Время, чтобы лифт приехал на 1 этаж
  T_lift_to_n := b * (n - 1); // Время от 1 до n этажа
  T_lift := T_to_1 + T_lift_to_n;
  // Сравнить времена и вывести результат
  if T_stair <= T_lift then
    writeln('Иди по лестнице, это быстрее.')
  else
    writeln('Езжай на лифте, это быстрее.');
end.

Пояснение работы программы:

1. Ввод данных:

   • Пользователь вводит этаж $n$, текущий этаж лифта $k$, и времена $a$, $b$.

2. Расчет времени:

   • Сначала программа рассчитывает $T_{\text{stair}}$ — время на лестнице.
   • Затем $T_{\text{lift}}$, суммируя время, чтобы лифт доехал до первого этажа, и время до $n$-го этажа.

3. Сравнение:

   • Выбирается минимальное из двух времен, и выводится, что быстрее.

Пример работы:

Входные данные:

• $n = 5$ (этаж Миши).
• $k = 3$ (этаж лифта).
• $a = 10$ (время на один этаж по лестнице).
• $b = 5$ (время на один этаж лифтом).

Рассчеты:

• $T_{\text{stair}} = 10 \times (5 - 1) = 40$.
• $T_{\text{to\_1}} = 5 \times |3 - 1| = 10$.
• $T_{\text{lift\_to\_n}} = 5 \times (5 - 1) = 20$.
• $T_{\text{lift}} = 10 + 20 = 30$.

Вывод:

• $T_{\text{lift}} = 30$ < $T_{\text{stair}} = 40$.
• Вывод: "Езжай на лифте, это быстрее."

Теперь вы можете использовать эту программу для вычислений при любых входных данных!