Question

要编写一个找相同的数字的游戏，用pascal编写。

游戏说明
这是一个找相同的数字游戏。数组中有n（要求您读入，请保证为偶）个数，有1,2,3三种可能，数字种类保证有偶数个。
1 先读入n
2 你读入一个字符，
若为a，则读入两个数字，为数组地址，及查看数组元素。
电脑将跳出两个数，表示地址中的元素。
若为b,也则读入两个数字，依次为n,m,即地址。
电脑会对读入地址的元素比较，
若相同，则去除元素；
若不同，则回复不相同。
3 当n=0(也就是没有数的时候），游戏结束，玩家胜利。输出win！

Answer 1

var num,i:longint;

function judge(x:longint):boolean;
var a,b,c,sum:longint;

begin
c:=x mod 10;
a:=x div 100;
b:=x mod 100;
b:=b div 10;
sum:=a+b;
if ((a=b)or(b=c)or(a=c)) then exit(false);
if (b<=(a+c)) then exit(false);
if ((sum=2)or(sum=3)or(sum=5)or(sum=7)or(sum=11)or(sum=13)or(sum=17)) then exit(false);
exit(true);
end;

begin
num:=0;
for i:=100 to 999 do
if judge(i) then
begin
inc(num);
write(i,' ');
if (num mod 8=0) then writeln;
end;
end.