Расскажите о сайте uzedu.uz​

Program Randomizer;

Var a,b,i : Integer;

Const n = 5;//Кол-во попыток

 Begin  

  WriteLn('                Вас приветствует "Randomizer!™"');

  ReadLn;

  WriteLn('    Компьютер загадал число от 1 до 100, ваша задача отгадать его.');

  WriteLn('                   Приступим!(Нажмите Enter)');

  ReadLn;

  WriteLn('                         Введите число');

  i:= 1;

  a:=random(100);

  While ((b <> a) and (i < n + 1)) do //Программа не завершится, пока b не станет равной a или n (попытки) не закончатся.  

   Begin

    //If b > 100 then WriteLn('Ошибка - число превышает 100');//Нужно, чтобы при вылете ошибки программа не завершалась и попытки не уменьшались.

    ReadLn(b);

    If b = a then WriteLn('Вы угадали!') Else

    If ((b <> a) and (i <> n)) then WriteLn('Попробуйте другое число...') Else  WriteLn('          Попытки закончились! Перезапустите программу.');

    inc (i);

   End;

 End.

1) F=Av(¬A&B)
По закону дистрибутивности раскроем скобки
(Av¬A)&(AvB)
Av¬A = 1, значит остаётся AvB

2) F =A&(¬AvB)
По тому же закону раскрываем скобки
(A&¬A)v(A&B)
A&¬A = 0, значит остаётся A&B

3. (AvB)&(¬BvA)&(¬CvB)
По закону склеивания (AvB)&(¬BvA) = A , получается, что выражение принимает вид
A&(¬CvB)
Можно раскрыть скобки, получим
A&¬C v A&B

4) F =(1v(AvB))v((AC)&1) 
Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1
Получаем выражение
1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1
ответ 1