Напишите программу к решению задачи : "С момента начала суток прошло К секунд. Сколько часов, минут и секунд показывают куранты?"

Question

Информатика

Михай

19 июня, 19:43

Напишите программу к решению задачи : "С момента начала суток прошло К секунд. Сколько часов, минут и секунд показывают куранты?"

+4

Ответы (1)

Знаете ответ на вопрос?

Геруха · Answer 1

Var k, a, b:integer;

begin

read (k) ;

b:=k div 3600;

if b>0 then k:=k mod 3600;

a:=k div 60;

if a>0 then k:=k mod 60;

writeln (b,':', a,':', k) ;

end.