Задание №10*Даны две точки плоскости. Определите, какая из них находится ближе к началу координат.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
