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

Question

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

Comments

Ну как, работает?

Answer 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.

Comments

Огромное спасибо!

---

Всегда пожалуйста:) Недавно просто пошёл на кружок по Паскалю.