随意写了一个，代码有点丑program guess;vari,j,k,n,m:longint;f,h:boolean;s:string;c:char;a,b:array[1。。4] of longint;q:array[0。。9] of boolean;beginh:=true;while h=true do beginrandomize;fillchar(q,sizeof(q),false);for i:=1 to 4 dobeginj:=random(9);while q[j]=true doj:=random(9);q[j]:=true;a[i]:=j;end;i:=1;f:=false;while (i<=10)and(f=false) do begin inc(i); m:=0; n:=0; writeln('Please input number'); readln(s); b[1]:=ord(s[1])-ord('0'); b[2]:=ord(s[2])-ord('0'); b[3]:=ord(s[3])-ord('0'); b[4]:=ord(s[4])-ord('0'); if (b[1]=a[1])and(b[2]=a[2])and(b[2]=a[2])and(b[2]=a[2]) then f:=true; for j:=1 to 4 do for k:=1 to 4 do if (b[j]=a[k]) then begin if j=k then inc(n) else inc(m); break; end; writeln(n,'A',m,'B'); end;if f=false then writeln('You lose!') else writeln('You win!'); writeln('Play again? (y/n)'); readln(c); if (c='y')or(c='Y') then h:=true else h:=false;end;end。
输入的时候无需输空格，没有判断读数是否重复，需要的自己加上就成了，对产生数判断，保证不会重复最后输入y重新开始，n结束试试看这个程序。
答：var i,j.temp:integer; a,b:array[1..20]of integer; begin for i:=1 to 20 do read(a...详情>>
