ToPoint(1,1);
PenDown;
ToPoint(1,5);
ToPoint(6,5);
PenUp;
ToPoint(6,1);
PenDown;
ToPoint(1,1)
end.
Вычисляем по формулам:
N = 2^b
I = k*b
Где N - мощность алфавита, b - инф. вес символов, k - количество символов
Отсюда,
128 = 2^b
b = 6
12 кб = 98304 бит
98304 = k * 6
k = 16384
Сходить в магазин
взять деньги - выйти из дома - идти в магазин - купить продукты - вернуться домой - получить от мамы))))
1. Купить путевку на море - собрать вещи - поехать на море - разместиться в отеле - купаться, загорать, отдыхать, развлекаться - собрать вещи - уехать домой
2. Приехать в зоопарк - купить билет - зайти в зоопарк - ходить по зоопарку и смотреть на животных - выйти из зоопарка - вернуться домой
// PascalABC.NET версия 3.4, сборка 1767
begin
var (a,b,x):=(10,12,14);
var y := a**1+b*x/(x**3-a)**4;
writeln('y = ',y);
end.