Question

Ввести число обозначающее количество секунд. Вывести то же самое время в часах, минутах, секундах.
Пример:
Число секунд:
8325
2 ч. 18 мин. 45 с

Answer 1

program program1;
var a,b:integer;
begin
writeln('Введите кол-во секунд: ');
read(a);
b:=a div 3600;
write (a, ' Секунд, это ', b, ' часов.')
end.