1)-622
2)-26Е
3)-11001101
4)-110100100
5)-212.8125
Если пешками ходить запрещено, то можно ходить только конями. Коней два, каждый может сходить на одно из двух полей, следовательно имеются 4 варианта ходов. После того, как ход белых был сделан, неопределенность в знаниях черных уменьшилась в 4/1=4 раза. 4=2², поэтому полученное количество информации составляет 2 бита.
//PascalABC.NET 3.2 сборка 1318
//Вариант по формуле Бине
Var
n,fibn:real;
i:integer;
begin
readln(n);
if n<=0 then writeln('Не существует чисел Фиббоначи меньше 0')
else
begin
i:=0;
while fibn<n do
begin
fibn:=(power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5);
inc(i);
end;
writeln((power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5)-1);
end;
end.
//В лоб
Var
sum,n,buf,fib0,fib1:integer;
function fibb(fib0,fib1:integer):integer;
begin
result:=fib0+fib1;
end;
begin
fib0:=0;
fib1:=1;
readln(n);
if n<=0 then
writeln('Не существует чисел Фиббоначи меньше 0')
else
begin
if fibb(fib0,fib1)>=n then sum:=0 else
begin
while fibb(fib0,fib1)<n do
begin
buf:=fib1;
fib1:=fibb(fib0,fib1);
fib0:=buf;
end;
sum:=fibb(fib1,fibb(fib0,fib1))-1;
end;
writeln(sum);
end;
end.
Пример ввода:
12
Пример вывода:
20
<em>Вначале я Вам напишу простой перевод:</em>
<em>1 байт = 8 бит </em>
<em>1 Кбайт = 1024 байт</em>
<em>1 Мбайт = 1024 Кбайт</em>
<em>1 ГБ = 1024 МБ
</em>
<em>Первая задача - Гбайт в Бит:</em><span>
<em>Для того, чтобы перевести Гбайты в Биты, нужно количество Гбайт умножить на 1024 ещё раз умножить на 1024 и ещё раз умножить на 1024 и потом умножить на 8. У нас получится ответ, который вы ищете, Например:</em>Возьмем 1 Гбайт и переведём его в биты, распишу по действиям:1)1*1024 = 10242)1024*1024 = 10485763)1048576*1024 = 10737418244)1073741824*8 = 8589934592 <u>Ответ: 8589934592 Бит.</u><em>Вторая задача - Бит в Байт:</em><em>Для того, чтобы перевести Биты в Байты, нужно количество битов поделить на 8, т.к 1 байт = 8 бит(об этом писал выше) и получим нужный ответ, Например: Опять возьмём 1 Бит и переведём его в Байты(напишу в нескольких видах, если будет непонятно):</em></span>
- первый вид<span>
1/8 = 0,125 - второй вид1:8 = 0,125 - третий вид<em><u>Ответ: 0,125 Байт.</u></em><em>Вот так у нас получилось 2 ответа:</em><em>Первый - 8589934592 Бит и Второй 0,125 Байт.</em></span>