¬(A ∨ ¬B) ∨ ¬(A ∨ B) ∨ (A ∧ B) =
(¬A ∧ B) ∨ (¬A ∧ ¬B) ∨ (A ∧ B) =
¬A ∧ (B ∨ ¬B) ∨ (A ∧ B) =
¬A ∨ (A ∧ B) =
¬A ∨ B
1) Язык программирования назван в честь математика <span>Лавлейс Ады
2) Паскаль создан в 1969-1970 году Никлаусом Виртом. Назван в честь Блеза Паскаля, французского математика и физика
3) Разработчиками языка являются </span>Сеймур Пейперт<span> и </span>Идит Харель<span> </span>
Var
n,m,i,j,k1,k2: integer;
a: array[1..100,1..100] of integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to n do readln(a[i,j]);
for i:=1 to n do
for j:=1 to n do
if a[i,j]>0 then inc(k1) else inc(k2);
for i:=1 to n do
for j:=1 to n do
if (k1>k2) and (a[i,j]>0) then writeln(a[i,j]) else
if (k1<k2) and (a[i,j]<0) then writeln(a[i,j])
<span>end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadArrInteger(6).Select((v, i)-> v * (i + 1)).Println(',')
end.
<h2>Пример</h2><h3>24 -13 31 7 0 -391</h3><h3>24,-26,93,28,0,-2346</h3>