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

Question

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

Answer 1

В часе 60 минут и 60*60=3600 секунд. Следовательно нужно проверять сколько раз входит в число секунд ваши интервалы:
var sec:integer;
begin
readln(sec);
writeln('proshlo ', sec div 3600, ' polnyh chasov ili ', sec div 60, ' polyh minut');   
end.

Answer 2

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.