1) program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin mas[i]:=random(9)+1; if (mas[i] mod 2)=0 then mas[i]:=mas[i]+1; end; end. 2)program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin mas[i]:=random(9)+1; if (mas[i] mod 2)=0 then mas[i]:=0; else mas[i]:=mas[i]*3; end; end. 3)program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin mas[i]:=random(9)+1; if (i mod 2)=0 then mas[i]:=(mas[i]*mas[i]); end; end. 4)program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin readln(mas[i]); if (mas[i]<0) then mas[i]:=mas[i]*(-1); end; end.
Объяснение:
1 вариант
¬а ∨ (b∨¬с)
1 ¬с (первое отрицание в скобках)
2 b∨¬с (второе дизъюнкция в скобках)
3) ¬а (отрицание а)
4)¬а ∨ (b∨¬с) - дизъюнкция ¬а и выражения в скобках
а∧ ¬ (b∨¬с)∨ d
1 ¬с (первое отрицание в скобках)
2 b∨¬с (второе дизъюнкция в скобках)
3 ¬ (b∨¬с)(отрицание выражения в скобках)
4 а∧ ¬ (b∨¬с) конъюнкция а и выражения скобках)
5 дизъюнкция п.4 и Д
Талица истинности
A b c b∧c a∨b∧c ¬a∨b∧c
0 0 0 0 0 1
0 0 1 0 0 1
0 1 0 0 0 1
0 1 1 1 1 0
1 0 0 0 1 0
1 0 1 0 1 0
1 1 0 0 1 0
1 1 1 1 1 0
2 вариант
а∨b∧c
1. конъюнкция b∧c
2 дизъюнкция а и п. 1
¬(а∨b)∨с
1. дизъюнкция в скобках а∨b
2 отрицание выражения в скобках ¬(а∨b)
3 дизъюнкция с и п.3
2 таблица истинности
А b c ¬c ¬b ¬b∧a ¬c∨¬b∧a
0 0 0 1 1 0 1
0 0 1 0 1 0 0
0 1 0 1 0 0 1
0 1 1 0 0 0 0
1 0 0 1 1 1 1
1 0 1 0 1 1 1
1 1 0 1 0 0 1
1 1 1 0 0 0 0
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=mas[i]+1;
end;
end.
2)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=0;
else
mas[i]:=mas[i]*3;
end;
end.
3)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (i mod 2)=0 then
mas[i]:=(mas[i]*mas[i]);
end;
end.
4)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i]<0) then
mas[i]:=mas[i]*(-1);
end;
end.