Переводите 5Е4¹⁶-10140¹⁰-2, 16100 101 100 111101²-16756¹⁶-2​

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 - сколько секунд осталось не считая целых часов и целых минут

Ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.