Çàäà÷à . 20056

var a, b, t, N, P :integer;
Function F(x: integer):integer;
begin
  F := 3*(9-x)*(9-x)+12;
end;
BEGIN
a := -10; b := 10;
P := 25;
N := 0;
for t := a to b do begin
  if (F(t) > P) then begin
    N := N+1;
  end;
end;
write(N);
END.

#include<stdio.h>
int F(int x)
{
  return(3*(9-x)*(9-x)+12); 
}
int main(void)
{
 int a, b, t, P, N; 
 a = -10; b = 10; 
 P = 25; 
 N = 0; 
 for (t=a; t<= b; t++)
     if (F(t) > P) N++; 
 printf(″%d″, N);
}