По логической схеме составить логическую функцию

Объяснение:

черта сверху обозначает инвертирование (отрицание)

| - логическое или

& - логическое и

При желании это выражение можно упростить

Примерно так

Тут можно остановиться, поскольку в этом выражении идет объединение множеств (А) и (не А) которое всегда будет давать истину, которая после будет проинвертирована.

То есть значением такой функции при любых значениях переменных будет ЛОЖЬ.

Таблица истинности в доказательство в ниже

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);   i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);

  i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);