1. даны высказывания: а={3*3=9}, b={3*3=10}. определите истинность высказываний: 1) а, 2) ⌐в, 3) а& в, 4) в, 5) ⌐а, 6) а /\ в.

1) true 2)true 3)false 4)false 5)false 6)false (если галочка в повёрнута наоборот то true, а то у тебя 2 одинаковых вопроса)

1) истинно 2) истинно 3) ложно 4) ложно 5) ложно 6) ложно

Program m;   var old, new: real;   k,n,i: integer;   begin   repeat   write('vvod posl n= ');   readln(n)   until n> 0;   write('vvod x= ');   readln(old);   k: =0;   for i: =2 to n do   begin   write('vvod x= ');   readln(new);   if new*old< 0 then k: =k+1;   old: =new;   end;   if k> 0 then   writeln('posledovatelnost menyaet znak ', k, ' raz')   else writeln('posledovatelnost ne menyaet znak');   end.

Var       i, n, prev_n: integer; begin       i : = 0;       writeln('введите последовательность чисел,оканчивающихся 0');             repeat               readln(n);               if prev_n * n < 0 then                       i : = i + 1;               prev_n : = n;       until n = 0;             writeln(i); end.