Дан номер урока (число от 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). Определите, когда заканчивается указанный урок - Pascal ABC»

textual
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.

6   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ