Var
mas:array[1..100] of integer;
min,i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
min:=mas[1];
for i:=2 to 10 do
if mas[i]<min then
min:=mas[i];
mas[10]:=min;
for i:=1 to 10 do
write(mas[i],' ');
end.
1) F и G зависят от 5-ти переменных, поэтому
в их таблицах истинности будет по 2^5=32 строки
2) в таблицах истинности в 5-ти строках FиG имеют одинаковые значения:
в 4-х строках: F=1 и G=1 -----> F∪G=1
в 1-й строке F=0 и G=0 ------> F∪G=0
в остальных строках разные значения
(F=0 и G=1) или (F=1 и G=0) ----> F∪G=1
3) 32-1=31 - общее количество строк, которые дают F∪G=1
ответ 31
Если взять массив от 1 до 20 то программа примерно выглядит так:
Program primer;
Var
A: array [1..20] of real;
i:integer;
Begin
For i:=1 to 20 do
Begin
a[i]:=i/2;
Write(a[i],'|');
End;
End.
Var a,b,s: real;
begin
a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
writeln(s);
end.
ОТВЕТ
6,5