Program e;
var d : real; x,y,z : integer; all : integer;result: real;beginWriteln('ко-лво страниц');Readln(x);Writeln('ко-лво строк');Readln(y);Writeln('ко-лво символов');ReadLn(z);
d:= 1.44 * 1024;
all := x*y*z;
result := d/all;writeln('Поместится книг:',trunc(result)); end.
<em>Приведу пример на Паскале.</em>
Var x,y:integer;
Begin
x:=5;
y:=3;
If x>y Then
x:x-y
Else
x:=x+y;
writeln(x);
end.
<em>Исход программы зависит от заданных переменных.</em>
Если считать, что в каждом варианте должна быть минимум одна курица или собака, то таких вариантов 15, а если можно считать, что кого-то из них 0, то 17.
Первый файл - без нулей, второй - с нулями
X=int(input("введи число"))
if(x>=0):
print("y=",(x+2)**2)
else:
print("y=",x-2)
2^i = I, где I - кол-во возможных вариантов (в данном случае кол-во дорожек), а i - кол-во полученной информации (в битах). Решаем:
2^i = 8; 2^3 = 8; i = 3 ,бита.
Ответ: 3 бита.