составить таблицу истинности для формулы. f=b& a v a& c ​

объяснение:

у меня знак & не ставится, но он выполняет свои действия, у себя его ставьте!

700 иероглифов было в древнем письме

блок смемы не умею

var i: integer

s,n: real;

begin

  repeat

      read(n);

      if n> 0 then s: =s+n

  until n=0;

  writeln(s);

end.

var a,s: real;

i: integer;

begin

  read(a);

  repeat

      i: =i+1;

      s: =s+1/i

  until s> a;

  writeln(i,s);

end.