Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Написать программу:
Вычислить количество точек с целочисленными координатами, попадающих в круг с радиусом r и с центром в начале координаты
Ур: x*x+y*y= r*r

Ответ оставил Гость

Var i,j,n,k: integer;    r: real;begin  write(радиус:  );  readln(r);  n:=trunc(r);  k:=0;  for i:=-n to n do  for j:=-n to n do  if sqr(i)+sqr(j)<=sqr(r) then k:=k+1;  writeln(число точек в круге:  ,k);end.