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

Question

Информатика

Лексана

6 марта, 22:01

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

+2

Ответы (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.