Логическая функция F задается выражением ¬w ∧ z ∧ (y →x)

сумма=18

семерки нету

или тебе программу написать?

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

ответ 2)                                

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.