Урок длится 45 минут(число уроков 10), а урок начинается в 9: 00 , после уроков 1 ,3,5,7,9 преремена 5 минут , а после уроков 2,4,6,8,10 перемена 15 минут . надо найти воденное урок воскьлко заканчивается. например ты водиш число 5(это номер урока) и в паскале выходит время вослолько заканчивается этот урок,
Program Bazget;
var a,min:integer;
begin
read(a);
if a mod 2 = 0 then min:=5+20*((a-2)/2) + a*45 else min:=20*((a-1)/2) + a*45;
Writeln(9+(min div 60),":",min mod 60);
end.
Вроде все правильно, проверяй. Вопросы и недочеты в ЛС