238.169.12.109 = 11101110.10101001.00001100.01101101
Двоичные числа должны состоять из 8 знаков, поэтому, если их недостаточно, то мы добавляем незначащие нули перед числом.
Объяснение:
238₁₀ = 11101110₂
238 ÷ 2 = 119 (остаток 0)
119 ÷ 2 = 59 (остаток 1)
59 ÷ 2 = 29 (остаток 1)
29 ÷ 2 = 14 (остаток 1)
14 ÷ 2 = 7 (остаток 0)
7 ÷ 2 = 3 (остаток 1)
3 ÷ 2 = 1 (остаток 1)
1 ÷ 2 = 0 (остаток 1)
Записываем снизу-вверх
169₁₀ = 10101001₂
169 ÷ 2 = 84 (остаток 1)
84 ÷ 2 = 42 (остаток 0)
42 ÷ 2 = 21 (остаток 0)
21 ÷ 2 = 10 (остаток 1)
10 ÷ 2 = 5 (остаток 0)
5 ÷ 2 = 2 (остаток 1)
2 ÷ 2 = 1 (остаток 0)
1 ÷ 2 = 0 (остаток 1)
Записываем снизу-вверх
12₁₀ = 1100₂
12 ÷ 2 = 6 (остаток 0)
6 ÷ 2 = 3 (остаток 0)
3 ÷ 2 = 1 (остаток 1)
1 ÷ 2 = 0 (остаток 1)
Записываем снизу-вверх
109₁₀ = 1101101₂
109 ÷ 2 = 54 (остаток 1)
54 ÷ 2 = 27 (остаток 0)
27 ÷ 2 = 13 (остаток 1)
13 ÷ 2 = 6 (остаток 1)
6 ÷ 2 = 3 (остаток 0)
3 ÷ 2 = 1 (остаток 1)
1 ÷ 2 = 0 (остаток 1)
Записываем снизу-вверх
Предлагается следующий алгоритм.
1. Ввести время записи в минутах n.
2. Перевести минуты в секунды, умножив n на 60.
3. Получить размер файла в байтах, умножив результат (2) на 264600.
4. Перевести результат в мегабайты, поделив результат (3) на 1024².
5. Округлить результат (4) до целых в большую сторону.
6. Вывести значение, полученное в (5)
Конечная формула:
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadReal('Введите время записи в минутах');
var v:=Ceil(264600*60*n/1024/1024); // округление "вверх"
Writeln('Размер файла ',v,' Мбайт')
end.