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

Question

Цвета

19 декабря, 13:26

+2

Ответы (1)

Знаете ответ?

Далмат · Answer 1

Var

A:integer;

Begin

WriteLn ('Введите кол-во секунд') ;

ReadLn (A) ;

WriteLn (A div 3600,' ч ', A mod 60,' мин ', A mod 60,' сек')

End.