Question

Даны 2 точки на плоскости. Составьте алгоритм, который будет определять, какая из них находится дальше от начала координат.
Паскаль программирование

Answer 1

program dve_tochki_kskaja_dalshe;

var

x1,y1,x2,y2:integer;

begin

read(x1,y1,x2,y2);

if(sqrt(sqr(x2)+sqr(y2))) >(sqrt(sqr(x1)+sqr(y1)))

then

write('Вторая дальше')

else

if(sqrt(sqr(x2)+sqr(y2))) >(sqrt(sqr(x1)+sqr(y1)))

then

write('Первая дальше')

else

write('Точки равноудалены')

end.