Пример 1. 1. 1

Идет N-ая секунда суток. Определить полное количество часов и минут в заданный момент времени, считая от начала суток.

program Number_1_1;

var hour,minute,n:longint;

{Количество секунд в полных сутках равно 86 400, что требует

рассмотрения решения задачи только с длинными целыми}

ch:char;

Begin

writeln(' Работа первой программы');

Repeat

writeln('Ведите значение секунд');

readln(n);

hour:=n div 3600;

minute:= n div 60 -hour*60;

writeln('Получено часов= ',hour,' минут= ',minute);

writeln('Еще хотите проверить время?- y or n');

readln(ch);

until ch='n';

End.