Question

Написать алгоритм к этой : электронные часы показывают время в формате h: mm: ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. количество минут и секунд при необходимости дополняются до двузначного числа нулями. с начала суток секунд. выведите, что покажут часы.

Answer 1

Var
  t, h, mm, ss: integer;
  ct, ch, cmm, css: string;

begin
  Write('Введите время в секундах от начала суток -> ');Readln(t);
  h := t div 3600;
  t := t mod 3600;
  mm := t div 60;
  ss := t mod 60;
  Str(h, ch);
  ct := ch + ':';
  Str(mm, cmm);
  if Length(cmm) = 1 then ct := ct + '0' + cmm + ':' else ct := ct + cmm + ':';
  Str(ss, css);
  if Length(css) = 1 then ct := ct + '0' + css else ct := ct + css;
  Writeln('Указано время ', ct)
end.

Тестовое решение:
Введите время в секундах от начала суток -> 27429
Указано время 7:37:09