Çàäà÷à . 20055

var a,b,t,M,R :integer; 
Function F(x:integer):integer; 
begin
  F := (x*x-25)*(x*x-25)+15 end;
begin
  a := -15; b := 15; 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+15) 
end.

#include<stdio.h>
int F(int x) 
{
  return((x*x-25)*(x*x-25)+15); 
}
int main(void)
{
  int a, b, t, M, R; 
  a = -15; b = 15; M = a; R = F(a); 
  for (t = a; t<=b; t++)
    if (F(t) <= R)  
      { 
      M = t;
      R = F(t); 
      }
  printf(″%d″, M+15);
}