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. ReadLn(k);
  14.  
  15. // Вычисляем количество часов и минут
  16. h := k div 3600; // 3600 секунд в часе
  17. m := (k mod 3600) div 60; // Остаток от деления на 3600 даст секунды, а потом делим на 60 для минут
  18.  
  19. // Выводим результат
  20. WriteLn('Прошло ', h, ' часов и ', m, ' минут.');
  21.  
  22. ReadLn;
  23. end.
  24.  
Success #stdin #stdout 0s 5312KB
stdin
987234
stdout
Прошло 1 часов и 9 минут.