用Pascal语言编程序

上面的做法很高手,不过有更容易理解的,也许是12冰一时没想到吧~呵呵
program jiafalianxi;
var
i,k,n,a,d:integer;
f:char;
t:boolean;
begin
t:=true;
for i:=1 to 2 do
begin
randomize;
k:=random(100);n:=random(100);
begin
a:=k+n;
f:='+';
end;
writeln(k,f,n,'=');
readln(d);
if d<>a then t:=false;
end;
if t=true then writeln('PASS!')
else writeln('NO!');
end.
这个方法试过了,也没问题.

随机数范围是多少？如下是0-100的范围：
program sz;
uses crt;
var a,b,x,y:array[1..2] of integer;
i,j:integer;
begin i:=0;
j:=0;
repeat
j:=j+1;
randomize;
begin
a[j]:=random(100);
b[j]:=random(100);
end;
x[j]:=a[j]+b[j];
write(a[j],'+',b[j],'=');
readln(y[j]);
if y[j]=x[j] then i:=i+1
else
begin
clrscr;
writeln(a[j],'+',b[j],'=',x[j]);
until j=2;
if i=2 then write('PASS')
else write('NO');
end.

电脑上验算过，没有错误，不知是不是你要的那个？