Дано количество секунд сначала суток. Вычислить текущее время в виде количества часов, минут и секунд.
Дано количество секунд сначала суток. Вычислить текущее время в виде количества часов, минут и секунд.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы