Hướng dẫn giải của [Free Contest 05] DEJAVU
Chỉ dùng lời giải này khi không có ý tưởng, và đừng copy-paste code từ lời giải này. Hãy tôn trọng người ra đề và người viết lời giải.
Nộp một lời giải chính thức trước khi tự giải là một hành động có thể bị ban.
Nộp một lời giải chính thức trước khi tự giải là một hành động có thể bị ban.
{$mode objfpc}{$H+}
{$coperators on}
var
n, i: integer;
x, y: array [1..100000] of integer;
cx, cy: array [0..1000000] of integer;
Sum : Int64 = 0;
begin
readln(n);
for i := 1 to n do
begin
readln(x[i], y[i]);
cx[x[i]] += 1;
cy[y[i]] += 1;
end;
for i := 1 to n do
Sum += Int64(cx[x[i]]-1) * (cy[y[i]]-1);
writeln(Sum);
end.
Bình luận