Question

Создать программу которую с клавиатуры вводится количество секунд, прошедших с начало суток, определить кол-во полных часов и мин. Прошедших сначало суток

Answer 1

var s,m,h:integer;
begin
readln(s);
h:=s div 3600;
m:=(s-h*3600) div 60;
if m=60 then
 begin;
  inc(h);
  m:=0;
 end;
writeln(h,':',m);
end.