По таблице истинности найти и упростить сднф скнф
F=10001000

1) F = A v B

2) F = A ^ B

3) F = A  => B

Объяснение:

1. Поход в театр - А; в цирк - B.

F = A v B

Использовали дизъюнкцию. Мы пойдём или А, или В.

2. 15 делится на 3 и на 5

F = 15, A = 3, B = 5

F = A ^ B

Использовали конъюнкцию. 15 делится и на А, и на В.

3. Если сумма цифр числа делится на 3 без остатка, то число делится на 3.

A - сумма цифр числа делится на 3 без остатка; B - число делится на 3

F = A  => B

Использовали импликацию. Если сумма цифр числа делится на 3 без остатка, то само число делится на 3 без остатка.

Вот примерно так

Объяснение:

var

 s, s1: string;

 i, k: integer;

begin

 write('Введите строку: ');

 readln(s);

 //s := 'мама папа дед лес поп';

 writeln(s);

 s := s + ' ';

 i := 0;

 k := 1;

 while i < Length(s) do

 begin

   inc(i);

   if not (s[i] in [' ', ',', '-']) then  

     s1 := s1 + s[i]

      else  

   begin

     if s1[1] = s1[Length(s1)] then  

     begin

       //    writeln(s1);

       delete(s, k, Length(s1) + 1);

       //    writeln(s);

     end;  

     inc(k, Length(s1) + 1);

     s1 := '';

     //writeln(k);

   end;

 end;

 writeln(s);

end.