Школа программиста

Забыли пароль?
[задачи] [курсы] [олимпиады] [регистрация]
Логин:   Пароль:    
Скрыть меню
О школе
Правила
Олимпиады
Фотоальбом
Гостевая
Форум
Чат
Архив олимпиад
Архив задач
Состояние системы
Рейтинг
Курсы
Новичкам
Работа в системе
Алгоритмы
Курсы ККДП
Дистрибутивы
Ссылки

HotLog


 
{ какая точка (A или B) ближе к началу координат }
var x1,y1,x2,y2,d1,d2:real;
begin
     writeln('введите A(X1,Y1) и B(X2,Y2)');
     readln( x1,y1,x2,y2 );
     d1:=sqrt(sqr(y1)+sqr(x1));
     d2:=sqrt(sqr(y2)+sqr(x2));
     if d1 < d2 then writeln('Точка A ближе')
     else if d1 > d2 then writeln('Точка B ближе')
     else writeln('Одинаково');
end.


Красноярский краевой Дворец пионеров, (c)2006 - 2017, ICQ: 151483