Var a,b,c,d:Real;
T:Boolean;
Begin
randomize;
a:=random(50);
b:=random(50);
c:=random(50);
d:=random(50);
writeln('A=',a,' ','B=',b,' ' 'C=',c,' ','D=',d);
T:=(a<b)and(a<c)and(a<c)and(d>a)and(d>b)and(d>c);
writeln(T);
End.
Можешь сам просто в калькуляторе программиста посчитать
Один бит информации уменьшает неопределенность в два раза.
Скинь фотку ребуса''''''''''