Задание №10*Даны две точки плоскости. Определите, какая из них находится ближе к началу координат.

Question

Информатика

Витаня

5 февраля, 05:14

Задание №10*Даны две точки плоскости. Определите, какая из них находится ближе к началу координат.

+5

Ответы (1)

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

Патрикей · Answer 1

Var

a, b, c, d: real;

begin

readln (a, b, c, d) ;

if (sqrt (sqr (a) + sqr (b)) > sqrt (sqr (c) + sqr (d))) then

writeln ('Вторая ближе')

else

if (sqrt (sqr (a) + sqr (b)) = sqrt (sqr (c) + sqr (d))) then

writeln ('Одинаково') ;

end.