fork download
  1. program SecondsToHoursMinutes;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. var
  9. k, h, m: Integer;
  10.  
  11. begin
  12. // Вводим количество секунд
  13.  
  14. ReadLn(k);
  15.  
  16. // Вычисляем количество часов и минут
  17. h := k div 3600; // 3600 секунд в часе
  18. m := (k mod 3600) div 60; // Остаток от деления на 3600 даст секунды, а потом делим на 60 для минут
  19.  
  20. // Выводим результат
  21. WriteLn('Прошло ', h, ' часов и ', m, ' минут.');
  22.  
  23. ReadLn;
  24. end.
  25.  
Success #stdin #stdout 0s 5276KB
stdin
8900
stdout
Прошло 2 часов и 28 минут.