DIM A, B, T, M, R AS INTEGER

A = -10: B = 27

M = A: R = F(А)

FOR T = A TO B

IF F(T) > R THEN

M = T

R = F(T)

END IF

NEXT T

PRINT M

FUNCTION F(x)

F = 2*(x -3)*(x-3)+66

END FUNCTION

var a,b,t,M,R :integer;

Function

F(x:integer):integer;

begin

F := 2*(x -3)*(x-3)+66

end;

begin

a := -10; b := 27;

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(M)

end.

#include stdio.h

int F(int x)

{

return 2*(x -3)*(x-3)+66;

}

void main()

{

int a, b, t, M, R;

a = -10; b = 27;

M = a; R = F(a);

for (t = a; t <= b; t++) {

if (F(t) > R) {

M = t; R = F(t);

}

}

cout « M « endl;

}

алг

нач

цел a, b, t, M, R

a := -10; b := 27

M := a; R := F(a)

нц для t от a до b

если F(t) > R

то M := t; R := F(t)

все

кц

вывод M

кон

алг цел F(цел x)

нач

знач:= 2*(x -3)*(x-3)+66

кон