На вход программе подаются два целых числа: 0 < n <= 12, 0 <= m < 60, указывающие момент времени “n часов m минут”. Определите наименьшее число полных минут, которое должно пройти до того момента, когда часовая и минутная стрелки на циферблате совпадут, не обязательно на каком-то делении. Вещественную арифметику не использовать.
ABC Pascal. Пришлите скрин или полную запись программы пожалуйста

Чтобы решить задачу на определение времени, через которое часовая и минутная стрелки совпадут, нужно учесть следующее:

1. На классическом часах минутная стрелка делает полный круг (360 градусов) за 60 минут, а часовая — за 12 часов (или 720 минут).
2. За одну минуту минутная стрелка поворачивается на 6 градусов (360/60), а часовая — на 0.5 градуса (360/720).
3. Начальное положение часовой и минутной стрелок задается как $n$ часов и $m$ минут. При этом часовая стрелка на момент времени $n$ часов и $m$ минут находится на позиции $30 \times n + 0.5 \times m$ градусов (30 градусов за каждый час и дополнительно 0.5 градуса за каждую минуту), а минутная — на позиции $6 \times m$ градусов.

Алгоритм:

Нужно найти ближайший момент времени, когда часовая и минутная стрелки будут в одном положении на циферблате. Для этого можно рассчитать разницу между положениями стрелок и проверить, через какое количество минут разница сведется к нулю.

Программа написана на ABC Pascal и использует целочисленные вычисления:

Пример программы на Pascal:

pascal
program TimeUntilCoincide;
var
  n, m, t: integer;
  h_pos, m_pos, delta, minutes: integer;
begin
  // Ввод времени n часов и m минут
  readln(n, m);
  // Рассчитываем начальное положение часовой и минутной стрелок
  h_pos := (n mod 12) * 30 + (m * 1 div 2); // часовая: 30 градусов за час + 0.5 за минуту
  m_pos := m * 6;                          // минутная: 6 градусов за минуту
  // Рассчитываем разницу в положении стрелок
  delta := m_pos - h_pos;
  if delta < 0 then
    delta := delta + 360;
  // Ищем наименьшее количество минут, через которое разница в положении исчезнет
  minutes := 0;
  while (delta mod 11 <> 0) do
  begin
    delta := (delta + 5) mod 360; // Сдвиг на 5 градусов каждую минуту (разница между минутной и часовой стрелками)
    minutes := minutes + 1;
  end;
  // Выводим результат
  writeln(minutes);
end.

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

1. h_pos: Это положение часовой стрелки в градусах. Мы умножаем количество часов (с учетом 12-часового формата) на 30, потому что каждый час равен 30 градусам. Затем добавляем половину градуса за каждую минуту, чтобы учесть влияние минут.
2. m_pos: Это положение минутной стрелки. Каждая минута смещает минутную стрелку на 6 градусов, поэтому мы просто умножаем количество минут на 6.
3. delta: Разница между положениями минутной и часовой стрелок. Если разница отрицательная, добавляем 360 градусов, чтобы работать в положительном диапазоне от 0 до 360 градусов.
4. В цикле программа проверяет, когда разница между положениями стрелок станет кратной 11 (потому что часовая и минутная стрелки движутся относительно друг друга с разницей в 5 градусов в минуту). Это означает, что стрелки совпадут.

Пример:

Ввод:

3 15

Программа посчитает начальные позиции стрелок и выдаст количество минут, через которое они совпадут.