Пользователь вводит с клавиатуры время в секундах, прошедшее с начала рабочего дня....

Question

Пользователь вводит с клавиатуры время в секундах, прошедшее с начала рабочего дня. Посчитать, сколько целых часов ему осталось сидеть на работе, если рабочий день – 8 часов.

Answer 1

Var t:integer;

begin
write('Введите время в секундах, прошедшее с начала раб.дня'); readln(t);

if (t>28800) and (t<32400) then write('Рабочий день закончен около ', round((t-28800)/60),' минут назад');<br>if (t>32400) then write('Рабочий день закончен около ', round((t-28800)/3600),' часов назад');
if (t<28800) then write('До конца рабочего дня осталось ', round((28800-t)/3600),'ч.);<br>end.