~~~~~~~~~~~~~~~
Программа:
program change;
var
a, b, c, d, changeabcd: integer;
begin
changeabcd := 0;
read(a, b, c, d);
changeabcd := d - (a + b + c);
write(changeabcd);
end.
~~~~~~~~~~~~~~~
Алгоритм:
Шаг 1. Присвоить переменной changeabcd значение 0;
Шаг 2. Ввести a, b, c, d;
Шаг 3. Вычислить changeabcd = d - (a + b + c);
Шаг 4. Вывести changeabcd.
~~~~~~~~~~~~~~~
Блок-схема в прикрепленном скриншоте.
Объяснение:
program change; // Название программы
var
a, b, c, d, changeabcd: integer; // Создание целочисленных переменных:
a, b, c, d - стоимость перчаток, портфеля, галстука и сумма, выделенная на покупку;changeabcd - сдача.begin // Начало программы
changeabcd := 0; // Переменной, хранящую сдачу, присваиваем 0
read(a, b, c, d); // Считываем значения переменных с клавиатуры
changeabcd := d - (a + b + c); // Высчитываем сдачу
write(changeabcd); // Выводим значение переменной changeabcd, хранящей сдачу
end. // Конец программы
Количество информации I, которое несет сообщение о реализация события A равно -ln(p), где p - вероятность события A.
Xкр = 27 - количество семян круглой редиски
Xвыт - количество семян плоской редиски
Pвыт - вероятность достать семечко вытянутой редиски равно Xвыт/(Xкр+Xвыт)
I - количество информации, которое несет сообщение о том, что доставли одно семечко вытянутой редиски
Исходя из условий задачи, можем составить уравнение:
I = -ln(Xвыт/(Xкр+Xвыт)) -> 2^-2 = Xвыт/(Xкр+Xвыт), откуда получаем Xвыт = 9
Общее количесво семян равно (Xвыт + Xкр) = 36
Для справки держишь ALT+набираешь номер цифрами с Num Lock
P.S. Надеюсь на благодарность и лучший ответ.