Написать программку:Вычислить количество точек с целочисленными координатами, попадающих в

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

Задать свой вопрос
1 ответ
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)lt;=sqr(r) then k:=k+1;  writeln('число точек в круге:  ',k);end.    

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт