Question

Дано натуральное число Т — длительность прошедшего времени в секундах. Вывести данное значение длительности в часах (НН), минутах (ММ) и секундах (SS) в следующей форме: НН ч ММ мин SS с

Answer 1

Var t:integer;
Begin
    write('Введите длительность прошедшего времени в секундах: ');
    readln(t);
    writeln('Часов: ',t div 3600,' Минут: ',t div 60 mod 60,' Секунд: ',t mod 60);
    readln;
End.