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

Question

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

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.