求解几道pascal简单题！！！！！！！！

Problems
Problem #1: A-B（dec）
Description
出题是一件痛苦的事情！
题目看多了也有审美疲劳，于是我舍弃了大家所熟悉的A+B Problem，改用A-B了哈哈！
好吧，题目是这样的：给出一串数以及一个数字C，要求计算出所有A-B=C的数对的个数。（不同位置的数字一样的数对算不同的数对）
Input Format
第一行包括2个非负整数N和C，中间用空格隔开。
第二行有N个整数，中间用空格隔开，作为要求处理的那串数。
Output Format
输出一行，表示该串数中包含的所有满足A-B=C的数对的个数。
Sample Input
4 1
1 1 2 3
Sample Output
3
Data Limit
对于90%的数据，N <= 2000；
对于100%的数据，N <= 200000。
所有输入数据都在longint范围内。
Problem #2: 还是N皇后（queens）
Description
正如题目所说，这题是著名的N皇后问题。
Input Format
第一行有一个N。接下来有N行N列描述一个棋盘，“*”表示可放“.”表示不可放。
Output Format
输出方案总数。
Sample Input
4
**.*
****
****
****
Sample Output
1

Data Limit
对于30%的数据，N≤10;
对于100%的数据，N≤14；

Problem #4: 联络（off）
Description
神牛LXX昨天刚刚满18岁，他现在是个成熟的有为男青年。他有N个MM，分别从1到N标号。这些MM有些是互相认识的。现在，LXX为了处理和MM们复杂的关系，想把他们划分成尽量多的集合，要求任意两个属于不同集合的MM都必须互相认识。这样方便交流。现在LXX想知道最多可以分成多少个集合，每个集合的人数是多少。
Input Format
输入第一行是两个数N和M。
接下来M行，每行两个数，表示这两个MM是互相认识的。
Output Format
第一行一个数S，表示最多有多少个集合。
第二行S个数，从小到大，表示每个集合的人数。
Sample Input
3 2
1 2
2 3
Sample Output
2
1 2
Data Limit
对于40%的数据，1≤N≤1000，1≤M≤500000；
对于100%的数据，1≤N≤100000，1≤M≤2000000；

好熟悉的题目啊，不幸找到了原题，贴给你第一题的AC代码，作者：蓝天白云

var
i,j,n,c:longint;
t:qword;
a:array[0..300000]of longint;
b:array[0..300000]of int64;
procedure swap(var a,b:longint);
var
temp:longint;
begin
temp:=a;
a:=b;
b:=temp;
end;
procedure sort(l,r:longint);
var
i,j,x:longint;
begin
i:=l;j:=r;x:=a[(l+r)shr 1];
repeat
while a[i]<x do inc(i);
while a[j]>x do dec(j);
if i<=j then
begin
swap(a[i],a[j]);
inc(i);dec(j);
end;
until i>j;
if l<j then sort(l,j);
if i<r then sort(i,r);
end;
function find(x:longint):longint;
var
l,r,m:longint;
begin
l:=1;r:=n;
repeat
m:=(l+r)shr 1;
if a[m]=x then exit(m);
if a[m]<x then
l:=m+1
else
r:=m;
until l>=r;
if (a[l]=x)and(l<=n) then exit(l);
if (a[r]=x)and(r>=1) then exit(r);
exit(0);
end;
begin
assign(input,'dec.in');reset(input);
readln(n,c);
for i:=1 to n do read(a[i]);
close(input);
sort(1,n);
j:=0;
a[0]:=a[1]-1;
for i:=1 to n do
begin
if a[i]=a[i-1] then inc(j);
a[i-j]:=a[i];
inc(b[i-j]);
end;
n:=n-j;
t:=0;
if c=0 then
for i:=1 to n do
t:=t+b[i]*(b[i]-1)div 2
else
for i:=1 to n do
begin
t:=t+b[i]*b[find(c+a[i])];
// writeln(find(c+a[i]));
end;
// for i:=1 to n do writeln(a[i],' ',b[i]);
assign(output,'dec.out');rewrite(output);
writeln(t);
close(output);
end.

后面两题好像也写过，我去找找看我的代码还在不
不幸的把第二题也找到了
var
tot,n,i,j,n1:longint;
pre,next,b,a:array[0..20]of longint;
l,r,s:array[-20..20]of longint;
ch:char;
procedure try(deep,y,z:longint);
var
i:longint;
begin
if deep>n then
begin
inc(tot);
exit;
end;
i:=next[0];
repeat
if a[deep] and s[i]<>0 then
if y and l[deep+i]<>0 then
if z and r[deep-i]<>0 then
begin
pre[next[i]]:=pre[i];
next[pre[i]]:=next[i];
try(deep+1,y xor l[deep+i],z xor r[deep-i]);
next[pre[i]]:=i;
pre[next[i]]:=i;
end;
i:=next[i];
until i>n;
end;
begin
assign(input,'queens.in');reset(input);
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
read(ch);
if ch='*' then
a[i]:=a[i] xor (1 shl (j-1));
end;
readln;
end;
close(input);
for i:=0 to n+1 do
next[i]:=i+1;
for i:=0 to n+1 do
pre[i]:=i-1;
n1:=1 shl n-1;
b[n+1]:=n1;
for i:=n downto 1 do
b[i]:=b[i+1] or a[i];
for i:=1 to n do
s[i]:=1 shl (i-1);
r[1-n]:=1;
for i:=1-n+1 to n-1 do
r[i]:=r[i-1] shl 1;
l[1+1]:=1;
for i:=1+1+1 to n+n do
l[i]:=l[i-1] shl 1;
try(1,1 shl (n+n-1)-1,1 shl (n+n-1)-1);
assign(output,'queens.out');rewrite(output);
writeln(tot);
close(output);
end.
应该都是AC过了的，太久了，忘了
第三提有印象做过，应该有AC，但代码找不到了

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fv728mps2.html