Настя составляет 6-буквенные слова, в которых есть только буквы
Б, В, А, Г, Д, причём буквы Б, А, Д встречатся строго по одному разу. Буква
В всречается не более 2 раз. Г может встречаться любое количество раз или
не встречаться вовсе. Словом считается любая допустимая
последовательность букв, не обязательно осмысленная. Сколько существует
таких слов, которые может составить Настя?

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

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandomReal(ReadInteger('Длина вектора А='),-50,50); a.Println;
  var b:=ArrRandomReal(ReadInteger('Длина вектора B='),-50,50); b.Println;
  var c:=(a.Where(x->x>0).Count)>(b.Where(x->x>0).Count);
  Writeln(c)
end.

Пример
Длина вектора А= 5
11.2705506669686 48.3210324301948 42.773549674439 43.1555606858598 -18.5803525469174
Длина вектора B= 6
15.3481486557741 -19.0451312200376 -19.2453642232555 -11.3293506025008 48.204669308944 32.6231040445264
True