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 - сколько секунд осталось не считая целых часов и целых минут
Например (для Блокнота):
команду "Меню -> Правка -> Копировать" можно выполнить, нажав Ctrl+C
команду "Меню -> Правка -> Вставить" можно выполнить, нажав Ctrl+V
команду "Файл -> Сохранить" можно выполнить, нажав Ctrl+S
команду "Файл -> Выход" можно выполнить, нажав Alt + F4
и т.д.