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.
Я решил в виде таблицы:
восьмилитровая - пятилитровая
8 - 0
3-5
3-0
0-3
8-3
6-5
6-0
1-5
1-0
0-1
8-1
4-5
4-0
0-4
8-4
7-5
Кислый , горький, вкусный
Это Микрофон если что, странно это не знать)
K = 60*50*40
N = 65536
N = 2^j
j = 16
I ( объем инф-ии) = 16*60*50*40 = 1920000 бит = 240000 байт =234,3 Кбайт
ответ: 234,3 Кбайт