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

Question

Информатика

Фрол

10 февраля, 05:40

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

+5

Ответы (2)

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

Витюха · Answer 1

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.

Исаак · Answer 2

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.