На Паскале.
Вводятся координаты X, Y для N точек. Определите, сколько точек попадают в круг
радиуса R. Сколько точек попадают в кольцо с меньшим радиусом R1, большим R2.
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 < R then k:= k + 1;
if (rt < R2) and (rt > R1) then m:= m + 1;
end;writeln; writeln(Количество точек в кругу с радиусом R = ,k);writeln(Количество точек в кольце = ,m);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
