Количество информации вычисляется по формуле I = log(2)1/p,
где p - вероятность наступления некоторого события.
Для зайца: p = 4/16 = 1/4; I = log(2)[1 / 1/4] = log(2)4 = 2 бита
Для медведя: p = 2/16 = 1/8; I = log(2)[1 / 1/8] = log(2)8 = 3 бита
Program XY5;
var
x,y: real;
begin
var s:='**** -=Alphaeus=- ****';
for var k:=1 to 22 do begin write(s[k]); sleep(47) end;
writeln;writeln;
writeln('Введите координаты точки:');
write('X='); readln(x);
write('Y='); readln(y);
if ((x>=0) and (y>=0) and (x*x+y*y<=16)) or ((x>=0) and (y<=0) and (x*x+y*y<=25)) then
writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')
else
writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');
end.
If a div 10 ???? нет условия. нужно
if (a div 10)mod 10 <> 0 then....