Çàäà÷à . 20062

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

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