Question

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

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.