Çàäà÷à . 20044

var a,b,t,M,R:integer;
Function F(x:integer):integer;
begin
  F := 3*(x-8)*(x-8)
end;
begin
  a := -20; b := 20;
  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(3*(x-8)*(x-8)); 
} 
int main(void)
{
  int a, b, t, M, R; 
  a = -20; b = 20; 
  M = a; R= F(a); 
  for (t=a; t<= b; t++)
    {
    if (F(t)<R)  
      {
      M = t; 
      R= F(t);
      }
    }
printf(″%d″, M);
}