Дан номер урока (число от 1 до 10). Определите, когда заканчивается указанный урок - Pascal ABC

Формулировка задачи:

В некоторой школе занятия начинаются в 9:00. Продолжительность урока — 45 минут, после 1-го, 3-го, 5-го и т.д. уроков перемена 5 минут, а после 2-го, 4-го, 6-го и т.д. — 15 минут. Дан номер урока (число от 1 до 10). Определите, когда заканчивается указанный урок. Выведите два целых числа: время окончания урока в часах и минутах. При решении этой задачи нельзя пользоваться циклами и условными инструкциями. Пример: Ввод: 3 Вывод: 11 35 Пример: Ввод: 2 Вывод: 10 35

Решение задачи: «Дан номер урока (число от 1 до 10). Определите, когда заканчивается указанный урок»

Листинг программы

var n,t,h,m:integer;
begin
readln(n);//число от 1 до 10
t:=540+n*45+(n div 2)*5+((n-1) div 2)*15;
m:=t mod 60;
h:=t div 60;
write(h,' ',m);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC.

Переменные n, t, h и m объявлены как целочисленные типы данных.
Строка readln(n); считывает число от 1 до 10, которое представляет собой номер урока.
Выражение t:=540+n*45+(n div 2)*5+((n-1) div 2)*15; вычисляет время начала урока. Здесь n - это номер урока, а остальные части выражения представляют собой константы и математические операции для вычисления времени.
Строка m:=t mod 60; вычисляет остаток от деления времени начала урока на 60, что дает количество минут.
Строка h:=t div 60; вычисляет количество часов от деления времени начала урока на 60.
Строка write(h,' ',m); записывает количество часов и минут урока на экран. Таким образом, данный код определяет время начала урока в зависимости от его номера и выводит количество часов и минут на экран.