Какое наибольшее целое значение 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.
Ответы на вопрос
Ответил ihorsyrota
0
Число равно 14-ти...
Ответил golosproshlogo
0
Решение?
Ответил ihorsyrota
0
Я запустил программу и просто начал вводить числа =)
Ответил golosproshlogo
0
не очень умно)
Ответил ihorsyrota
0
тоесть? а как подругому? могу конечно разложить на формуліююю
Ответил golosproshlogo
0
Хотелось бы математического обоснования. (ручной счет)
Новые вопросы