Задать вопрос
28 октября, 19:52

С клавиатуры последовательно вводятся координаты точек. Сколько точек попадут в окружность с центром в начале координат и радиусом R. Конец ввода точек-ввод точки (0; 0)

+4
Ответы (2)
  1. 28 октября, 20:24
    0
    Program n1;

    var r, k, x, y: real;

    begin

    readln (r) ;

    readln (x, y) ;

    k:=0;

    while (x0) and (y0) do

    begin

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

    readln (x, y) ;

    end;

    writeln (k) ;

    end.
  2. 28 октября, 22:40
    0
    Var r, x, y: real; k:integer;

    begin

    write ('R = ') ;

    readln (r) ;

    write ('x, y: ') ;

    readln (x, y) ;

    k:=0;

    while (x0) and (y0) do

    begin

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

    write ('x, y: ') ;

    readln (x, y) ;

    end;

    writeln ('k = ', k) ;

    end.

    Пример:

    R = 3

    x, y: 2 3

    x, y: 2 1

    x, y: - 2.5 - 2.5

    x, y: - 1 - 1

    x, y: - 2 2

    x, y: 0 0

    k = 3
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «С клавиатуры последовательно вводятся координаты точек. Сколько точек попадут в окружность с центром в начале координат и радиусом R. Конец ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы