Введите ответ в поле ввода

Бейсик

Паскаль

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

A = -20: B = 20
M = A: R = F(А)

FOR T = A TO B

   IF F(T)       M = T
      R = F(T)
   END IF
NEXT T
PRINT M

FUNCTION F(x)
   F = 2*(x-15)*(x-17)+19
END FUNCTION

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

Function F(x:integer):integer;

  begin

    F := 2*(x-15)*(x-17)+19

  end;

BEGIN

  a := -20;  b := 20;

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

  for t := a to b do begin

    if (F(t)

         M := t;

         R := F(t)

     end

  end;

  write(M)

END.

Си

Алгоритмический язык

#include

int F(int x)

{

  return 2*(x-15)*(x-17)+19;

}

void main()

{

  int a, b, t, M, R;

  a = -20;  b = 20;

  M = a; R = F(a);

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

     if (F(t)

      M = t; R = F(t);

    }

  }

  printf("%d", M);

}

алг B14

нач

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

  a := -20; b := 20

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

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

      если F(t)< R

         то

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

      все

  кц

  вывод M

кон

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

нач

   знач := 2*(x-15)*(x-17)+19

кон