найти значение логических выражений
1) ((1 ∨ 1) ∧ (1 ∧ 0) =

2) ((1 ∧ 1) ∨ 0) ∧ (0 ∨ 1) =

Объяснение:

1) ((1 ∨ 1) ∧ (1 ∧ 0) =  1*0=0

2) ((1 ∧ 1) ∨ 0) ∧ (0 ∨ 1) = 1

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

* 60 / 16 =