1) Определите, какое число выведет эта программа:
var a, b, t, M, R: integer;
function F(x: integer) :integer;
begin
F := 9* (x*x-4) * (x*x-4) +25;
end;
begin
a := -10; b := 10;
M := a; R := F(a);
for t := a to b do
if F(t) <= R then begin
M := t;
R := F(t);
end;
writeln(M + R); end.

yanix2020    1   28.02.2020 12:16    6