Дано количество секунд сначала суток. Вычислить текущее время в виде количества часов, минут и секунд.

Question

Информатика

Аннюня

2 октября, 23:57

Дано количество секунд сначала суток. Вычислить текущее время в виде количества часов, минут и секунд.

+2

Ответы (2)

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

Иванка · Answer 1

Var h, m, s, a: integer;

begin

readln (a) ;

h: = a div 3600;

m: = (a - h*3600) div 60;

s: = a - m*60 - h*3600;

writeln (h) ; writeln (m) ; write (s) ;

end.

Маргуша · Answer 2

Uses crt;

var a, h, m, s:integer;

begin

readln (a) ;

h:=a div 3600;

a:=a mod 3600;

m:=a div 60;

a:=a mod 60;

s:=a;

write (h,':', m,':', s) ;

end.