С клавиатуры последовательно вводятся координаты точек. Сколько точек попадут в окружность с центром в начале координат и радиусом R. Конец ввода точек-ввод точки (0;0)
Ответы
Ответ дал:
0
Program n1;
var r,k,x,y: real;
begin
readln(r);
readln(x,y);
k:=0;
while (x<>0) and (y<>0) do
begin
if (x*x+y*y<=r*r) then k:=k+1;
readln(x,y);
end;
writeln(k);
end.
var r,k,x,y: real;
begin
readln(r);
readln(x,y);
k:=0;
while (x<>0) and (y<>0) do
begin
if (x*x+y*y<=r*r) then k:=k+1;
readln(x,y);
end;
writeln(k);
end.
Ответ дал:
0
Что-то окружности я здесь не вижу (
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад