Взамечательной стране , как нетрудно догадаться из ее названия, все дома имеют
треугольную форму. они расположены на координатной плоскости, и их вершины имеют целочисленные координаты.
недавно в объявили о строительстве нового жилого района, и герой нашей ,
которого зовут ректангул, решил приобрести себе дом в этом районе.
ректангул выяснил, что всем покупателям перед покупкой дается набор точек, среди которых
можно выбрать любые три, не лежащие на одной прямой. именно они на карте будут являться
вершинами треугольника, изображающего их будущий дом.
ректангул хочет как-то выделиться из толпы, и поэтому он решил приобрести не простой дом, а
прямоугольный. получив набор точек, наш герой задался вопросом: сколько у него есть вариантов
выбрать три точки так, чтобы они образовывали прямоугольный треугольник?
формат входных данных
первая строка входного файла содержит одно целое число n — количество точек в наборе
(3 6 n 6 2500).
далее в n строках записаны по два целых числа: xi
, yi — x и y координаты i-й точки из набора
(−1000 6 xi
, yi 6 1000). все точки в наборе различны.
формат выходных данных
в выходной файл необходимо вывести одно число — количество троек точек, которые подходят
нашему герою.
В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных.
Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.