Взамечательной стране , как нетрудно догадаться из ее названия, все дома имеют
треугольную форму. они расположены на координатной плоскости, и их вершины имеют целочисленные координаты.
недавно в объявили о строительстве нового жилого района, и герой нашей ,
которого зовут ректангул, решил приобрести себе дом в этом районе.
ректангул выяснил, что всем покупателям перед покупкой дается набор точек, среди которых
можно выбрать любые три, не лежащие на одной прямой. именно они на карте будут являться
вершинами треугольника, изображающего их будущий дом.
ректангул хочет как-то выделиться из толпы, и поэтому он решил приобрести не простой дом, а
прямоугольный. получив набор точек, наш герой задался вопросом: сколько у него есть вариантов
выбрать три точки так, чтобы они образовывали прямоугольный треугольник?
формат входных данных
первая строка входного файла содержит одно целое число n — количество точек в наборе
(3 6 n 6 2500).
далее в n строках записаны по два целых числа: xi
, yi — x и y координаты i-й точки из набора
(−1000 6 xi
, yi 6 1000). все точки в наборе различны.
формат выходных данных
в выходной файл необходимо вывести одно число — количество троек точек, которые подходят
нашему герою.

uses graphabc;

begin

setwindowsize (600,555);

SetPenWidth(2);

rectangle (200,200,400,499);

FloodFill(300,300,clBurlyWood);

rectangle (225,225,275,275);

FloodFill(250,250,clLightCyan);

line (225,250,275,250);

line (250,250,250,275);

rectangle (325,225,375,275);

FloodFill(350,250,clLightCyan);

line (325,250,375,250);

line (350,250,350,275);

rectangle (225,400,275,450);

FloodFill(250,425,clLightCyan);

line (225,425,275,425);

line (250,425,250,450);

rectangle (325,425,375,500);

FloodFill(350,490,clMaroon);

pie (350,425,25,0,180);

FloodFill(350,420,clMaroon);

line (200,200,300,100);

line (300,100,400,200);

FloodFill(300,110,clChocolate);

circle (300,160,20);

FloodFill(300,160,clLightCyan);

line (375,175,375,100);

line (375,100,355,100);

line (355,100,355,155);

FloodFill(370,110,clLightGray);

circle (550,50,30);

FloodFill(525,50,clYellow);

line (535,25,510,0);

line (525,35,470,15);

line (520,50,475,50);

line (525,65,485,90);

line (537,78,505,110);

line (550,80,535,120);

line (565,75,565,120);

line (575,65,595,90);

pie (500,413,30,0,180);

FloodFill(500,400,clRed);

rectangle (495,413,505,500);

FloodFill(500,495,clChocolate);

end.

Кривое условие. Его можно понять двояко.

Вариант 1. Рассмотрим случай, если слова "Неправда, что" понимать как отрицание остальной фразы, т.е. "Неправда, что: (в слове более 4 букв и первая буква – гласная и слово заканчивается на согласную).

Разобьем исходное высказывание на более простые.

А = "в слове более 4 букв"

B = "первая буква – гласная"

C = "слово заканчивается на согласную"

Тогда высказывание ""Неправда, что в слове более 4 букв и первая буква – гласная и слово заканчивается на согласную" можно записать как "НЕ"(A "И" B "И" C), то эквивалентно

("НЕ" A) "ИЛИ" ("НЕ" B) "ИЛИ" ("НЕ" С).

Сделаем обратную замену:

"НЕ" А = "в слове НЕ более 4 букв"  (1)

"НЕ" B = "первая буква – согласная"  (2)

"НЕ" C = "слово заканчивается на гласную"  (3)

И достаточно выполнения хотя бы одного их этих условий.

Анна - выполняется (1)

Василий - выполняется (2)

Ирина - выполняется (3)

Николай - выполняется (2)

Елизавета - выполняется (3)

Получается, что фраза истинна для любого имени.

Вариант 2.  Слова "Неправда, что" будем понимать как отрицание только высказывания "в слове более 4 букв". Тогда исходную фразу можно записать как ("НЕ" A) "И" (B) "И" (C).

Сделаем обратную замену:

"НЕ" А = "в слове НЕ более 4 букв"  (1)

B = "первая буква – гласная"  (2)

C = "слово заканчивается на согласную"  (3)

Все три условия должны выполняться одновременно.

Анна - не выполняется (3)

Василий - не выполняются (1) и (2)

Ирина - не выполняются (1) и (3)

Николай - не выполняются (1) и (2)

Елизавета - не выполняются (1) и (3)

И получается, что фраза ложна для любого имени.

Выбирайте вариант ответа...