Один бит информации уменьшает неопределенность в два раза.
var y,x:real;
begin
write('Введите x = ');
readln(x);
if (x<=0) then y:=exp(x) else if x>1 then y:=ln(x) else y:=0;
writeln('y = ',y:0:2);
end.
<span>Дано: N=800</span><span>
K=320</span>
<span>Найти: I=?
</span><span>Решение: </span>
I=i×K
<span> N=2i</span><span>
800=</span>2^i
<span> 2^9=512</span>
<span> 2^10=1024</span>
<span> 800 > 2^9</span>
<span> 800 < 2^10 Т.к. нет точного числа i берём близкие по значению и выбираем
то, которое больше N.</span>
<span>I=10 × 320=3200
бит = 400 байт.</span>
<span>Вроде так.</span>
Program griby;
var
a,b,c:integer;
begin
a:=8;// первая
b:=a-1;// вторая
c:=20-a-b;// третья
writeln(c);// вывод значения
<span>end.</span>