Чтоб мне проще писать было, операцию И заменяю на *
Q*-P v -Q*-P v P*R
По свойству дистрибутивности
-P* (Q v -Q) v P*R
По закону поглощения (Q v -Q) = 1
-P*1 v P*R
По аксиоме 9 (или хз под каким номером она у вас) -P*1 = -P
-P v P*R
По свойству дистрибутивности
(-P v P) * (-P v R)
По закону поглоения (-P v P) = 1
1 * (-P v R)
и опять же по аксиоме 9:
-P v R
Program min_elem;
var a:array[1..5,1..5] of integer;
min, i, j: integer;
begin
{ввод матрицы}
for i:=1 to 5 do
<span> for j:=1 to 5 do read(a[i]);
<span>{решение задачи}
</span> min:=a[1, 1];
</span> for i:=1 to 5 do
<span> for j:=1 to 5 do
if a[i,j] < min then min:=a[i,j];
write('min=', min)
end.</span>
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
write(sqrt(x+1));
end.
Program B;
type
t=array[1..20] of integer;
var
a:t;
N,i:byte;
S:integer;
begin
readln(N); //кол-во элементов в массиве
S:=0;
for i:=1 to N do
begin
read(a[i]);
S:=S+a[i];
end;
write(S);
end.
Как правило, при перегреве происходит троттлинг у процессоров Intel, или даже появляется "экран смерти". после остывания комп запускается вновь.
AMD. при отсутствии термопасты и должного охлаждения.