Var d,time,hours,min:integer;
begin
readln(d);
time:=d*120;
hours:=time div 3600;
min:=time mod 3600 div 60;
writeln('it is ',hours,' hours ',min,' minutes');
end.
<span>Ответ: 2 бита
Есть четыре равновероятных события
Информация, о том, что произошло какое-то из этих событий равна двоичному логарифму из количества событий (4)
двоичный логарифм 4 равен 2</span>