Дано натуральное число Т – длительность прошедшего времени в секундах. Вывести данное...

Question

Дано натуральное число Т – длительность прошедшего времени в секундах. Вывести данное значение длительности в часах (HH), минутах (MM) и секундах (SS) в следующем формате HH ч MM мин SS с. Например, при вводе 3672 программа должна вывести «1 ч 1 мин 12 с»Напишите тексты программ для задачи

Answer 1

Var n,hh,mm,ss:integer;
begin
read(n);
hh:=n div 3600;
mm:=(n-hh*3600) div 60;
ss:=n - hh*3600 - mm * 60;
if n>3600 then write(hh,' ч ',mm,' мин ',ss,' с')
else write(mm,' мин ',ss,' с')
end.