Var a,b,t,m,r : integer; function f(x: integer): integer; begin    f: =4*(x-5)*(x+3); end; begin    a: =-20; b: =20;     m: =a; r: =f(a);     for t: =a to b do begin        if (f(t)< r)then begin            m: =t;             r: =f(t);         end;     end;     write(r); end.будет -64, объясните пож, каким образом?  

Reшка    3   18.11.2019 15:19    4