Var x,a,b,c,d:real;
begin
writeln('Введите число: '); read(x);
a:=sqr(x);
writeln ('Квадрат этого числа = ',a);
b:=sqrt(x);
writeln ('Корень квадратный = ',b);
c:=cos(x);
d:=sin(x);
writeln ('Синус = ', c, ' | Косинус = ',d);
<span>end.</span>
Схема в приложенной картинке.
Задача сформулирована не корректно, т.к. недостаточно информации о формировании сообщения.
В случае если мы передаём значение 15 то сообщение будет размером 1<span>111 бит.</span>
В худшем случае минимальное сообщение будет иметь размерность 100<span>000 бит
В лучшем случае сообщение может быть представлено как поток 2битных сообщений. Максимальная длина потока будет равна 32 сообщениям. В случае оптимистичного прогноза успех может произойти на первом сообщении. Таким образом мы считаем номер в потоке и значение бита. Если значение == 1 то в этом вагоне находятся друзья.
</span>
Вещественный - значит есть запятая и цифры после нее. (real, и др типы) <span>Целый - это значит нет запятой (или точки) после целой части. (integer) </span>