Пользуешься обычными триадами:
111-7;110-6;101-5;110-6
Отсюда: 6567
Правильный ответ - 64 символа
Знаем объем сообщения и количество знаков в нем. можем вычислить информационный вес одного знака 750/1000 в байтах или 750*8/1000 в битах - получим 6 бит. Если на один символ приходится 6 бит, значит в алфавите 2^6 символов = 64.
Var n,i,k,s1,s2:integer;
begin
write('n='); readln(n);
s1:=n; s2:=0;
for i:=1 to n-1 do
begin
write('k',i,'='); readln(k);
s1:=s1+i; s2:=s2+k;
end;
writeln('Потерялась карточка ',s1-s2);
<span>end.
Пример:
n=5
k1=1
k2=3
k3=4
k4=5
<span>Потерялась карточка 2
</span></span><span><span>
</span></span>
1F=1х16 в первой + 15х16 в нуливой=16+15=31
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,x):=(Sqrt(3),Tan(Pi/5),Log10(7));
var z:real;
if x<b then z:=ArcCos(a*a/(a*a+x*x))
else
if x=b then z:=Ln(2+Cos(b*x))
else z:=Abs(Tan(b*x))+2**(-a*x);
Writeln('z(x)=',z)
end.