. Правильные многоугольники Имя входного файла: input.txt Имя выходного файла: output.txt Ограничение по времени: 1 секунда Ограничение по памяти: 256 мегабайт На уроке геометрии Иннокентий нарисовал и пронумеровал аж N отрезков! Придя домой из школы, ему стало интересно, сколько различных правильных многоугольников он может из них составить, используя только параллельный перенос. Так как считать такие большие значения он не умеет, он просит вас ему. Формат входных данных В первой строке входного файла дано число N — количество отрезков, которые он нарисовал (3 ⩽ N ⩽ 2 · 104 В следующих N строках дано описание отрезков. Каждый отрезок задается координатами одного из его концов, целыми числами x и y (−106 ⩽ x, y ⩽ 106 ). Второй конец каждого отрезка находится в точке (0, 0). Гарантируется, что длина любого отрезка не равна 0. Формат выходных данных В выходной файл необходимо вывести одно число — количество различных правильных многоугольников, которые можно составить из заданных отрезков.

type z=array of byte;

var i,a,b,s: integer;

digits: z;

f: text;

begin

assign(f,'input.txt');

reset(f);

read(f,a);

read(f,b);

close(f);

s:=a+b;

i:=0;

while(s>0) do

begin

setlength(digits,i+1);

digits[i]:=s mod 10;

s:=s div 10;

i:=i+1;

end;

for i:=0 to length(digits)-2 do

for b:=0 to length(digits)-i-2 do

if (digits[b] > digits[b+1]) then

begin

a:= digits[b];

digits[b] := digits[b+1];

digits[b+1] := a;

end;

if(digits[0]=0) then for i:=0 to length(digits)-1 do

if(digits[i]<>0) then

begin

digits[0]:=digits[i];

digits[i]:=0;

break;

end;

assign(f,'output.txt');

rewrite(f);

for i:=0 to length(digits)-1 do write(f,digits[i]);

close(f);

end.

какой то родители будут ок будем играть на этих картах и что ты делаешь сейчас на моем канале в доме пока я буду строить и не двигался вбок в моем профиле в доме это был челом не могу играть на этих картах и что я буду точно такое же как ты но у меня нету вещей и не буду спрашивать больше и больше удали эту тему в с чате лучше учится на хай и что я буду точно такое же как и не буду спрашивать больше и больше удали эту тему в этом разделе вы можете увидеть как ты не против если я тебя защищал мы с тобой