Дано целое число.если оно является положительным, то прибавить к нему 1, в противоположном случае вычесть из него 2.вывести полученное число.

Var a : longint; begin readln(a); if a> 0 then a: =a+1 else a: =a-2; writeln(a); end.

Var a: integer; begin read(a); if a> =0 then a: = a+1 else a: = a-2; write(a); end.

var a,b,c: array[1..100] of integer;

i,n: integer;

begin

      n: =1;

      for i: =1 to 25 do

      begin

          a[i]: =random(20)+100;

          write(a[i],' ');

          if (i > 14) and (i < 21) then n: =n*a[i];

      end;

      writeln;

      write('произведение=',n); writeln;

end.

ответ:

f = x ∨ ¬y

объяснение:

f = x v ¬(x -> y) & ¬(z) & ¬(y) v ¬(y & ¬(x & z)) ​

заменим знаки операций более привычными и тогда будет проще.

f = x + ¬(x -> y) * ¬z * ¬y + ¬(y * ¬(x * z))

операцию импликации замени эквивалентом

​f = x + (¬x + y) * ¬z * ¬y + ¬(y * ¬(x * z))

выражение (¬x + y) * ¬z * ¬y равно ¬x * ¬y * ¬z из-за y * ¬y = 0.

к выражению   ¬(y * ¬(x * z)) применим правило де-моргана:

¬y + x*z. получаем

f = x + ¬x * ¬y * ¬z + ¬y + x*z;

x + x * z = x(1 + z) = x, тогда

f = x + ¬y * (¬x * ¬z + 1) = х + ¬y, или в прежних обозначениях

f = x ∨ ¬y