В школе продолжительность каждого урока 45 минут, а перемены между уроками — всего 5 минут. Первый урок начинается ровно в 8 часов утра. Напишите программу, отвечающую на вопрос «во сколько в этой школе заканчивается К-ый урок?» Входные данные. Вводится одно натуральное число К, не превышающее 15. Выходные данные. Выведите время окончания К-ого урока: сначала часы, потом минуты, разделяя их пробелом -Pascal(Паскаль)

VAR
  x: INTEGER;
BEGIN
  WRITE('Enter number of lesson: ');
  READLN(x);
  IF (x > 15) OR (x < 1)
  THEN
    WRITELN('Error. 0 < x <= 15')
  ELSE
    BEGIN
      x := 475 + 50 * x;
      WRITE('Time: ', x DIV 60, ' ', x MOD 60)      
    END;
  READLN
END.

Похожие записи/страницы:

Leave a Comment

4 + 5 =