Окружная олимпиада. - Pascal

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

Т.к. я ездил на неё, думаю вам будет интересно) Было пять заданий. Буду выкладывать постепенно, по мере моего вспоминания) 1.

Конец К-ого урока.

Первый урок, в школе, начинается с 8:00 утра. Каждый урок длится 45 минут, плюс между каждым уроком идёт перемена в 5 минут.

Ввод:

Число (К) уроков. Максимальное число уроков - 15.

Вывод:

Время конца К-ого урока в формате часы (пробел) минуты.

Пример:

k=2 9 35; k=5 12 25;

От себя:

Не забудте указать что к не должно превышать 15. Не забудте перевести 60 мин в 1 час. Не забудте в конечном результате

вычти 5

, просто перемена же не считается) Завтра выложу ещё одну. Как только выпрошу у учителя ксерокопию, выложу 5, так как там бред полный))

Решение задачи: «Окружная олимпиада.»

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

program nnm;
type
day=1..15;
ch=1..1000;
min=1..60;
var
k:day;
i:ch;
j,c:min;
begin
writeln('Vvedite kol-vo urokov');
readln(k);
i:=k*45+(k-1)*5;
j:=(i div 60)+8;
c:=i mod 60;
write('Konec zanyatii v ',j,'.',c);
readln;
end.

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

Объявление переменных: k типа day (день), i типа ch (количество минут в уроке), j, c типа min (количество минут в занятии и остаток от деления на 60).
Вывод сообщения с просьбой ввести количество уроков.
Чтение количества уроков и присвоение значения переменной k.
Расчет количества минут в занятии (i), исходя из того, что урок длится 45 минут, а между ними 5 минут перерыв.
Расчет количества минут в занятии (j), начиная с 8 минут после первого урока.
Расчет количества минут в остатке от деления на 60 (c).
Вывод сообщения с указанием времени окончания занятий, используя значения переменных j и c.
Чтение еще одного ввода с клавиатуры для завершения работы программы.