¬X ∨ Y ∨ <span>Z
---
1. </span><span>¬X ∧ Y ∧ Z <em>не подходит по второй строке</em>
2. </span>X ∧ ¬Y ∧ ¬Z <em>не подходит по второй строке</em><span>
3. </span>X ∨ Y ∨ ¬Z <em>не подходит по первой строке</em><span>
4. </span>¬X ∨ Y ∨ Z <em><u>подходит</u></em>
Program n1;
var a: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
end.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqReal(3).Where(t -> t > 0).Sum.Println
end.
<h2>3.53 -6.23 12</h2><h2>15.53 </h2>
<span>4) С:\Красная_книга\Евразия\Россия\Растения_степей.doc
</span>