В центре системы координат начерчена окружность радиусом R. Известны координаты трех точет на плоскости. Опредедить, сколько из них попали в нарисованный круг. Координаты точек и радиус R вводятся с клавиатуры

Question

Информатика

Леруся

14 декабря, 06:38

В центре системы координат начерчена окружность радиусом R. Известны координаты трех точет на плоскости. Опредедить, сколько из них попали в нарисованный круг. Координаты точек и радиус R вводятся с клавиатуры

+2

Ответы (1)

Знаете ответ на вопрос?

Ростяна · Answer 1

Var R, x, y : real; k, i: integer;

begin

write ('R=') ; readln (R) ;

k:=0;

for i:=1 to 3 do

begin

write ('x = ') ; readln (x) ;

write ('y = ') ; readln (y) ;

if sqrt (x*x+y*y) <=R then k:=k+1;

end;

writeln ('В круг попали ', k,' точек') ;

end.