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. Write('Введите количество секунд: ');
  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 5296KB
stdin
7 21
1 2 547152
1 3 509157
1 4 539282
1 5 541645         
1 6 458433
1 7 385173

2 3 131528
2 4 92735
2 5 150511
2 6 94440
2 7 194542
3 4 216600
3 5 272401
3 6 157176
3 7 124077
4 5 57785
4 6 97323
4 7 242232
5 6 136663
5 7 283862
6 7 147426
stdout
Введите количество секунд: Прошло 0 часов и 0 минут.