На Паскале.Вводятся координаты X, Y для N точек. Обусловьте, сколько точек

На Паскале.
Вводятся координаты X, Y для N точек. Обусловьте, сколько точек попадают в круг
радиуса R. Сколько точек попадают в кольцо с наименьшим радиусом R1, великим R2.

Задать свой вопрос
1 ответ
Var x,y,R,R1,R2,rt:real;i,N,k,m :integer;begin

R:= 15; R1:= 12; R2:=25;write('Введите N'); Read(N); 

for i:=1 to N do beginwrite('Введите координаты х и у'); Read(x,y);rt:=sqrt(sqr(x)+ sqr(y));writeln('r =':3,rt:6);

if rt lt; R then k:= k + 1;

if (rt lt; R2) and (rt gt; R1) then m:= m + 1;

end;writeln; writeln('Количество точек в кругу с радиусом R = ',k);writeln('Количество точек в кольце = ',m);end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт