Дано произведение ансамблей XY: P(x1y1) = 0.04; P(x1y2) = 0.16; P(x1y3) = 0.20;
P(x2y1) = 0.06; P(x2y2) = 0.24; P(x2y3) = 0.30.
Вычислить полную условную энтропию H(Y|X). ответ округлить до двух знаков после запятой.

Що таке комп’ютери?Комп’ютери - це електронно-обчислювальні машини, які виконують завдання або обчислення відповідно до набору інструкцій, або програм. Перші повністю електронні комп’ютери, створені у 1940-х роках, були величезні, їх обслуговували багато людей. Порівняно з тими ранніми машинами, сьогоднішні комп’ютери - це просто диво. Вони не лише в тисячі разів швидші, а й незрівнянно компактніші: можуть поміститися на вашому столі, на колінах чи навіть у кишені.Комп’ютери працюють у поєднанні устаткування та програмного забезпечення. Устаткуванням називають видимі та матеріальні складові комп’ютера, які включають корпус і весь його вміст. Найважливішій пристрій в устаткуванні - це маленька прямокутна мікросхема всередині комп’ютера, яка називається центральний процесор (ЦП) абомікропроцесор. Це «мозок» комп’ютера - частина, яка інтерпретує команди та виконує обчислення. Компонентиустаткування, такі як монітор, клавіатура, миша, принтер та інші, часто називають пристроями.Програмним забезпеченням називаються команди, або програми, які вказують устаткуванню, що робити. Наприклад, один із типів програмного забезпечення - текстовий редактор, за до якого на комп’ютері можна писати листи. Операційна система (ОС) - це програмне забезпечення, яке керує комп’ютером і підключеними до нього пристроями. Windows - широковідома операційна система.

1. Короткое решение для числа произвольной длины (на символьной строке)

var
  s:string;
  c:char;
begin
  Write('Введите натуральное число: ');
  Readln(s);
  Write('введите искомую цифру: ');
  Readln(c);
  if Pos(c,s)>0 then
    Writeln('Такая цифра в числе есть')
  else
    Writeln('Такой цифры в числе нет')
end.

Тестовое решение
Введите натуральное число: 43543232
введите искомую цифру: 4
Такая цифра в числе есть

2. Более традиционное решение с целочисленными переменными

var
  s,c:integer;
  brk:boolean;
begin
  Write('Введите натуральное число: ');
  Read(s);
  Write('введите искомую цифру: ');
  Read(c);
  brk:=false;
  repeat
    if s mod 10=c then brk:=True;
    s:=s div 10
  until brk or (s=0);
  if brk then
    Writeln('Такая цифра в числе есть')
  else
    Writeln('Такой цифры в числе нет')
end.

Тестовое решение
Введите натуральное число: 43543232
введите искомую цифру: 6
Такой цифры в числе нет