Question

Какое наибольшее целое значение 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.

Answer 1

Число равно 14-ти...

Answer 2

Решение?

Answer 3

Я запустил программу и просто начал вводить числа =)

Answer 4

не очень умно)

Answer 5

тоесть? а как подругому? могу конечно разложить на формуліююю

Answer 6

Хотелось бы математического обоснования. (ручной счет)