С начала суток прошло t секунд. Как узнать сколько это составляет часов, минут, секунд? ПАСКАЛЬ

program z1;

var t: integer;

begin

write('С начала суток прошло секунд t = ');

readln(t);

writeln('Это составляет ',t div 3600,' часов ', t mod 3600 div 60,' минут ',t mod 3600 mod 60,' секунд')

end.

div - целочисленное деление

mod - остаток от целочисленного деления

1 мин = 60 сек

1 час = 60 мин = 3600 сек

t div 3600 - сколько целых часов прошло

t mod 3600 - сколько секунд осталось не считая целых часов

t mod 3600 div 60 - сколько целых минут прошло

t mod 3600 mod 60 - сколько секунд осталось не считая целых часов и целых минут