. Правильные многоугольники Имя входного файла: input.txt
Имя выходного файла: output.txt
Ограничение по времени: 1 секунда
Ограничение по памяти: 256 мегабайт
На уроке геометрии Иннокентий нарисовал и пронумеровал аж N отрезков! Придя домой из
школы, ему стало интересно, сколько различных правильных многоугольников он может из них
составить, используя только параллельный перенос. Так как считать такие большие значения он не
умеет, он просит вас ему.
Формат входных данных
В первой строке входного файла дано число N — количество отрезков, которые он нарисовал
(3 ⩽ N ⩽ 2 · 104
).
В следующих N строках дано описание отрезков. Каждый отрезок задается координатами одного
из его концов, целыми числами x и y (−106 ⩽ x, y ⩽ 106
). Второй конец каждого отрезка находится
в точке (0, 0).
Гарантируется, что длина любого отрезка не равна 0.
Формат выходных данных
В выходной файл необходимо вывести одно число — количество различных правильных многоугольников, которые можно составить из заданных отрезков.
Программа:
program z;
var k,s,x:integer;
begin
k:=0; {начальное значение количества двузначных чисел}
s:=0; {начальное значение суммы двузначных чисел}
while True do {открываем бесконечный цикл}
begin
readln(x); {вводим число х}
if x=0 then break; {если введенное число равно 0, то остановить цикл}
if (x>9)and(x<100) then {если число двузначное, т.е. от 10 до 99}
begin
k:=k+1; {количество увеличиваем на 1}
s:=s+x; {увеличиваем предыдущее значение суммы на число х}
end;
end;
if k=0 then writeln('NO') {если двузначных чисел не было, то вывод NO}
else writeln(s/k); {иначе вывод ср.арифметического}
end.