даны две точки на плоскости. Определите , какая из них находится ближе к началу координат.
Answers & Comments
Студэнt
//PascalABC.Net 3.2 begin var x1:=readreal ('x1 ='); var y1:=readreal ('y1 ='); var x2:=readreal ('x2 ='); var y2:=readreal ('y2 ='); if (sqr(x1)+sqr(y1))=(sqr(x2)+sqr(y2)) then write ('Равноудалены') else if (sqr(x1)+sqr(y1))<(sqr(x2)+sqr(y2)) then write ('Первая') else write ('Вторая'); end.
Answers & Comments
begin
var x1:=readreal ('x1 ='); var y1:=readreal ('y1 =');
var x2:=readreal ('x2 ='); var y2:=readreal ('y2 =');
if (sqr(x1)+sqr(y1))=(sqr(x2)+sqr(y2)) then write ('Равноудалены') else
if (sqr(x1)+sqr(y1))<(sqr(x2)+sqr(y2)) then write ('Первая') else write ('Вторая');
end.