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

Надо написать программу на основе PascalABC

Question

Информатика

Млада

18 апреля, 02:12

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

Надо написать программу на основе PascalABC

+5

Ответы (1)

Знаете ответ?

Евдоха · 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.