Таблица истинности хееелп (x ∨ y) ∧ ¬(y ≡ z) ∧ ¬w. ???|?|?|w|(x ∨ y) ∧ ¬(y ≡ z) ∧ ¬w| _1_|_?_ |_1_| 0|_1_|
_0_|_1_|_?_| 0|_1_|
_?_|_1_|_1_| 0|_1_|
Вместо ? что ставить?
Т. к ∧, значит всё истинно
¬w -истинно, значит w -ложно, т. е. равно 0
¬(y ≡ z) -истинно, значит y ≡ z -ложно, значит они не равны, y≠z, одно и., второе л.
(x ∨ y) -истинно, значит, т. к. дизъюнкция, то истинно одно или оба
Получается, т. к. x≠y, то х это третья колонка, иначе они получаются равны
А как дальше? Что z, что у?

если первый говорит правду, то он тоже брехун и, значит, не может говорить правду, значит первый брехун, второй сказал правду, так как из них он один говорит правду, а второй брехун.

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

var

a: array[1..31] of real;

i,k: integer;

min: real;

begin

min: =50;

for i: =1 to 31 do

begin

readln(a[i]);

if a[i]< min then min: =a[i];

end;

k: =0;

for i: =1 to 31 do

if a[i]=min then k: =k+1;

writeln(k);

end.

program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin    readln(a[i]);     if a[i]< 0 then l: =l+a[i];     if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.