Наименьшим будет 0, так как вначале идет генерация чисел от -49 до 50
потом в массив b записали квадраты этих чисел , то есть в начале и в конце будут наибольшие числа и ближе к центру они будут уменьшаться , так как в массиве нет отрицательных и есть цифра 0, то 0*0=0, вот и наш ответ.
Перевести в десятичную надо.
Потом разделить и перевести во вторичную.
Ответ: 100111
Var a,b,c,d,x,Min:real;
Begin
WriteLn('f(x) = ax^3 +bx^2 +cx +d');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
Min:=0;
x:=0;
Repeat
if Min*(a*Min*Min+b*Min+c) > x*(a*x*x+b*x+c) then Min:=x;
x:=x+0.2;
Until x>2;
Write('d = ');ReadLn(d);
WriteLn('Min(f) = f(',Min,') = ',Min*(a*Min*Min+b*Min+c)+d)
End.
Пример работы программы:
f(x) = ax^3 +bx^2 +cx +d
a = 15
b = -17
c = -70
d = 0
Min(f) = f(1.6) = -94.08
F= ¬(X+Y+¬(X*Y))*¬(X*Y)
F= ¬(X+Y+¬X+¬Y)*¬(X*Y)
F = ¬1 *¬(X*Y)
F=0*¬(X*Y)
F = 0
Он. Не чем не отличаются просто где или что то будет разное