program raf105;
var m: integer;
begin
write('Введите номер месяца: ');
readln(m);
case m of
12,1,2: writeln('Это зима');
3..5: writeln('Это весна');
6..8: writeln('Это лето');
9..11: writeln('Это осень');
end;
end.
010000001000000011010111000010 000100101100000001000100010001010110000000010 100010010110000000110010100101000100100010111
48 / 2 = 24 ост 0
24 / 2 = 12 ост 0
12 / 2 = 6 ост 0
6 / 2 = 3 ост 0
3 / 2 = 1 ост 1
48₁₀ = 110000₂
Переводим 5 Кбайт в биты:
5 * 1024 * 8 = 40 960 бит
Находим время:
40 960 / 256 = 160 секунд
160 / 60 = 2,66 мин
Ответ: 2,66 минуты.