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, объясните пож, каким образом?

nfxlxlhxoydoysoys    2   02.06.2019 18:50    1