Слезно умоляю. мне❤️❤️❤️

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

253(8)=10101011(2)

2в4(16)=1010110100(2)

48(16)=1001000(2)

var

x,y: real;

i,n: integer;

begin

n: =1;

x: =1;

y: =1;

for i: =1 to 5 do

begin

n: =n*i;

x: =-1.5*x;

y: =y*(x+1/n);

end;

writeln(y: 15: 5);

end.

решаем относительно a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4