Даны две точки в плоской прямоугольной системе координат. Составить программу в паскале для определения, которая из точек находится ближе к началу координат.(СРОЧНО. ЗАРАНЕЕ СПАСИБО)

1

Ответы и объяснения

2014-03-09T19:13:12+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var
  x, y, d : real;
begin
  read (x, y);
  d := sqr (x) + sqr (y);
  read (x, y);
  if d > sqr (x) + sqr (y) then write ('Вторая ближе') else write ('Первая ближе');
end.