//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var c:=ArrRandomReal(12,-10,70).Println();
write(c.Where(x->(x>5.3) and (x<40.7)).Aggregate(Real(1),(x,y)->x*y));
end.
61 это 110110 110001
87 это 111000 110111
А чтобы не было проблем -
Вот ссылка: https://decodeit.ru/binary/
Это зависит от вас. Можно сделать презентации на темы: История Интернета, Вводные устройства, Первый компьютер, WEB-страницы и т.д
1. 80000 бит
2. 1 920 000 бит
3. 1,5 мегабайт
text = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'
num = int(input())
str = input().strip()
res = ''
for c in str:
res += text[(text.index(c) + num) % len(text)]
print('Result: "' + res + '"')