<span>1.
</span>Локальный диск (E:)
<span>1.1.
</span>Web
– сайты
<span>1.2.
</span>Анимации
<span>1.3.
</span>Компьютерная графика
<span>1.3.1.1.
</span>Начальная школа
<span>1.3.1.2.
</span>Коллаж
<span>1.3.1.3.
</span>Растровая графика
<span>1.3.2.
</span>Основная школа
<span>1.3.2.1.
</span>Векторная графика
<span>1.3.2.2.
</span>Коллаж
<span>1.3.2.3.
</span>Растровая графика
<span>1.3.2.4.
</span>Сканография
<span>1.3.3.
</span>Старшая школа
<span>1.3.3.1.
</span>Векторная графика
<span>1.3.3.2.
</span>Старая фотография
<span>1.3.4.
</span>Презентации
Задача сформулирована не корректно, т.к. недостаточно информации о формировании сообщения.
В случае если мы передаём значение 15 то сообщение будет размером 1<span>111 бит.</span>
В худшем случае минимальное сообщение будет иметь размерность 100<span>000 бит
В лучшем случае сообщение может быть представлено как поток 2битных сообщений. Максимальная длина потока будет равна 32 сообщениям. В случае оптимистичного прогноза успех может произойти на первом сообщении. Таким образом мы считаем номер в потоке и значение бита. Если значение == 1 то в этом вагоне находятся друзья.
</span>
Когда щёлкнешь по зеленому флажку
Всегда [8] шагов (можете [10] шагов)
Повторить [2] раза
Сменить на [1] костюм
Идти в точку - 123_31
Выбрать костюм [2]
Идти [8] шагов (можете [10] шагов)
Сменить на [3] костюм (Костюм мышки)
Var x,y,z,Ans:integer;
u:real;
Begin
Write('Введите числа x,y,z: ');
Readln(x,y,z);
Writeln('Что вычислить из числа ',x,' ?');
Writeln('1 - sin; 2 - cos; 3 - tg;');
Readln(Ans);
case Ans of
1: begin u:=sin(x); Writeln('sin(',x,') = ',u) end;
2: begin u:=cos(x); Writeln('cos(',x,') = ',u) end;
3: begin u:=tan(x); Writeln('tg(',x,') = ',u) end;
else Writeln('Ошибка!') end;
Writeln('Найти максимальное число из ряда ',u,', ',y,', ',z);
Writeln('Без модуля - 1; по модулю - 2');
Readln(Ans);
case Ans of
1: begin
if (u>y) and (u>z) then
Writeln('Максимальное число - ',u)
else
if (y>u) and (y>z) then Writeln('Максимальное число - ',y)
else
if (z>u) and (z>y) then Writeln('Максимальное число - ',z)
else
Writeln('Все числа равны.')
end;
2: begin
if (abs(u)>abs(y)) and (abs(u)>abs(z)) then
Writeln('Максимальное число - ',u)
else
if (abs(y)>abs(u)) and (abs(y)>abs(z)) then
Writeln('Максимальное число - ',y)
else
if (abs(z)>abs(u)) and (abs(z)>abs(y)) then
Writeln('Максимальное число - ',z)
else Writeln('Все числа равны.')
end
end
End.
*.pas прикрепил во вложения