Какое наибольшее целое значение h нужно ввести чтобы программа напечатала число 30. var a,b,t,m,r,h : integer; function f(h, x: integer): integer; begin f : = 11*(x-h)*(x-h)+13; end; begin readln(h); a : = 0; b : = 30; m : = a; r : = f(h, a); for t : = a to b do begin if (f(h, t) > r) then begin m : = t; r : = f(h, t) end end; write(m); end.
