Поскольку в поезде 16 вагонов, то полученное сообщение уменьшает неопределенность в выборе номера вагона в 16 раз и объем полученной информации равен
битам.
1 . 100001 в двоичной
2. 1000011 в двоичной
Function power (a:real; n:longint):real;
var
i:longint;
p:real;
begin
if n=0 then power:=0
else begin
p:=a;
for i:=2 to n do p:=p*a;
power:=p
end
end;
var
a:real;
n:integer;
begin
Write('Введите основание и показатель степени: ');
Read(a,n);
Writeln('Результат: ',power(a,n))
end.
<u>Пример</u>
Введите основание и показатель степени: 13.64 6
Результат: 6440005.25769131
Никлаус Вирт"Алгоритмы и структуры данных"<<Тебе сюда(Никто ответы тут писать тебе не будет)