Напиши программу, выполняющую поиск позитивных частей отзывов Оцените развлекательный комплекс: >>> Очень круто! Всё весело и увлекательно! Есть развлечения Результат анализа: 17 26 45

Напиши программу, выполняющую поиск позитивных слов в отзывах развлекательного Комплекса. Программа должна искать в строке отзыва слова: "весело", "увлекательно" и развлечения". Не забудь сделать все Символы Строки маленькими. Программа должна быть оформлена строго как на картинке.​

//Как-то громоздко получилось, но я так вижу. Эх, выходные.
const n=5;
var a:array[1..n] of integer;
b:array[0..8] of integer;
ar:array[1..n] of integer;
i,c,j:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
a[i]:=random(8);
write(a[i]:4);
end;
for i:=1 to n do
 begin;
  for j:=0 to 8 do
    if a[i]=j then inc(b[j]);
 end;
for i:=1 to n do
 begin;
  for j:=0 to 8 do
   if (b[j]>1) and (a[i]=j) then a[i]:=9;
 if a[i]<>9 then
  begin;
   inc(c);
   ar[c]:=a[i];
  end;
 end;
 writeln;
 for i:=0 to 8 do writeln(i,'=',b[i]);
writeln;
writeln('Final array:');
for i:=1 to n do
if a[i]=9 then a[i]:=0;

for i:=1 to c do
begin;
 a[i]:=ar[i];
 write(a[i]:4);
end;
end.

Что бы это уравнение было верно, нужно, что бы все скобки были итинными.

Следствие всегда истинно, кроме если из истинны идет ложь. Рассотрим эти варианты по скобкам. Исключая варианты которые входят в предыдущие ходы.

1) J = 1 L = 0 --- 8 вариантов

2) K = 1 L = 0 --- 4 варианта

3) M = 1 N = 1 --- 5 вариантов

4) L = 1 M = 0 --- 8 вариантов

5) M = 1 K = 0 --- 3 вариантов

всего 28 вариантов неверных.

32 - 28 = 4 верных варианта --- 4 решения уравнения.

 

П.С. Можно решить легче: сначала подставить L=0 и делать что бы в скобках было 1 всегда. Потом L=1. У меня получилось в первом 2 варианта и во втором 2. всего 4