DIM А, В, Т, М, R AS INTEGER

А = -13: В = 13 М = A: R = F (А)

FOR Т = А ТО В

IF F(Т) < R THEN

М = Т

R = F (Т)

END IF

NEXT Т

PRINT M+7

FUNCTION F(x)

F = (x*x-9)*(x*x-9)+5

END FUNCTION

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

Function F(x:integer):integer;

begin

F := (x*x-9)*(x*x-9)+5 end;

begin

a := -13;

b := 13;

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+7)

end.

#include

int F(int x)

{

return

(x*x-9)*(x*x-9) +5;

}

void main() {

int a, b, t, M, R;

a = -13;

b = 13;

M = a;

R = F (a);

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

{ if (F(t) < R)

{ M = t; R = F(t);

}

}

printf("%d", M+7);

}

алг

нач

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

а := -13;

b := 13

М := a;

R := F(а)

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

если F(t) < R

то М := t;

R := F(t)

все

кц

вывод М+7

кон

алг

цел Р(цел х)

нач

знач := (х*х-9)* (х*х-9)+5

кон