Крайние точки не учитываются. Если вам необходимо, чтобы они учитывались - замените знаки < и > на <= и >=
var
Y0,X0:integer;
begin
writeln('Введите координаты точки Y0 и X0');
readln(Y0,X0);
if ( ((X0>-6) and (X0<-3)) and ((Y0>-3) and (Y0<2)) )
or
( ((X0>-6) and (X0<-1)) and ((Y0>2) and (Y0<6)) )
then
writeln('Точка принадлежит области')
else
writeln('Точка НЕ принадлежит области')
end.
<span>var
i, j, a, b: integer;
s: real;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
for i := a to b do
if (i mod 3) = 0 then
begin
s := s + i;
inc(j);
end;
s := s / j;
writeln('Ответ: ', s);
<span>end.</span></span>
Жители 1 планеты: 256=2^8. Один знак - 8 бит
жители 2: 128=2^7. Один знак - 7 бит
Отв: 10*8 бит = 80 бит , 10*7=70 бит. для жителей 1 планеты сообщение из 10 знаков несет больше инфы.
на сколько? 80-70=10 бит
лал
Пусть вероятность достать синий шар p
тогда количество информации в сообщении о том, что добыт синий
i = -log(p)/log(2)
-3*log(2) = log(p)
log(2^(-3)) = log(p)
p = 1/8
если общее число шаров N
то синих N/8
красных N/8*3
белых N-N/8-3*N/8 = N/2
и по условию белых 36
N/2 = 36
N = 72
это ответ :)