Идет К-ая секунда суток. Обусловьте, сколько полных часов (H) и полных

Идет К-ая секунда суток. Обусловьте, сколько полных часов (H) и полных минут (М) прошло к этому моменту. (К примеру, если К=13257=3*3600+40*60+57, то H=3 и M=40)
Надобно написать программу на основе PascalABC

Задать свой вопрос
Евгения
Ну как, работает?
1 ответ
Var K, M, H: longint;
Begin
WriteLn('Введите номер секунды');
ReadLn(K);
H:=K div 3600;
M:=(K-H*3600) div 60;
K:=K-H*3600-M*60;
WriteLn('Прошло часов: ', H, '; минут: ', M, '; секунд: ', K);
Sleep(5000);
End.
Стефания Котрушова
Громадное спасибо!
Анастасия
Всегда пожалуйста:) Недавно просто пошёл на кружок по Паскалю.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт