даны 2 точки а (х1;у1) и b(х2;у2) определить какая из точек

даны 2 точки а (х1;у1) и b(х2;у2) найти какая из точек находиться ближе к началу координат . записать на языке паскаль

Задать свой вопрос
1 ответ
Program gt;
var x1,x2,y1,y2:real;
begin
readln(x1,y1,x2,y2);
if(x1*x1+y1*y1)lt;(x2*x2+y2*y2)then writeln('1-ая точка поближе')else
if(x1*x1+y1*y1)gt;(x2*x2+y2*y2)then writeln('2-ая точка ближе')else writeln('одинаково размещены');
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт