Çàäà÷à . 20054

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
    if (F(t) < R) then begin 
      M := t; R := F(t) 
    end;
write(M+7) 
end.

#include<stdio.h>
int F(int x) 
{
  return((x*x-9)*(x*x-9)+5); }
int main(void)
{ 
  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);
}