В корзине лежат 8 чёрных шаров и 24 белых сколько бит информации несёт сообщение о том, что достали чёрный шар? ​

Да, является

Объяснение:

Всё очень просто, символ "и" в информатике то же самое, что умножение в математике, а "или" тождественно сложению.

Функция или выражение истинно - значит, что функция или выражение равны "1", а ложны - равны "0"

Если X=1, а Y=2, то первое выражение "(X>0)" - истинно, так как 1>0, а истинно - значит = 1

Второе выражение "(Y>1)" так же истинно, так как 2>1, а истинно, как мы выяснили, - значит = 1

Третье выражение "(X<-1)" будет ложным, так как 1<-1 - не верно, а значит это выражение = 0

И получается простейшее уравнение, нам надо выяснить верно ли это, переведя всё в чисто математический вид:

(1*1)+0=1

1=1

Как мы видим, просто посчитав, мы получаем верное равенство, а значит наше выражение истинно при данных значениях X и Y

program konfety;   
    var t: real;       
         i: integer;        
begin
    WriteLn('Введите стоимость 1 кг конфет (в рублях): ');
    Read(t);
    for i := 1 to 10 do
        WriteLn('Стоимость ', i, ' кг конфет: ', i*t);
end.

Смысл такой:  - цена 1 кг конфет (вещественный тип real)
- счетчик, который будет увеличиваться на единицу после каждого выполнения тела цикла .

WriteLn() выводит на экран строку, которая заключена в кавычки. Не забываем ставить точку с запятой после операций.

Read(t) дает вам возможность вписать, сколько стоит килограмм конфет, и присваивает переменной  то значение, которое мы ввели.

Далее идет цикл , который по сути вот что делает: 
Для каждого целого i от 1 до 10 сделай вот что:
    Выведи на экран строку 'Стоимость ', потом значение i, потом строку 'кг конфет: ', потом число i умноженное на t

После того, как закончишь обрабатывать все это в последний десятый раз, переходи дальше.

А дальше у нас end (последний end. всегда с точкой).

Конец.