3. Строим таблицу истинности и определяем что функция F принимает значение 0 только при всех трёх аргументах равных единицам. Во всех остальных случаях функция принимает значение 1. Функция F эквивалентна функции.
F = ¬(X₁X₂X₃)
4.
Таблица при которой F принимает значение 0
X₁ X₂ X₃ F
0 0 0 0
0 0 1 0
0 1 0 0
1 0 0 0
1 1 0 0
var i: integer;
begin
for i := 1000 to 9999 do
if (i div 1000) * (i div 100 mod 10) * (i div 10 mod 10) * (i mod 10) = 40
then writeln(i)
<span>end.</span>
Var n,d,a1,a0,i:integer;
begin
writeln('d=');
read(d);
writeln('n=');
read(n);
writeln('a1=');
read(a1);
a0:=a1;
for i:=2 to n do
a0:=a0+d;
writeln('Сумма равна');
writeln(a0);
<span>end.
.</span>