vara,b,i,ss,ans:longint;beginrandomize;for i:=1 to 10 dobegin
a:=random(90)+10;
b:=random(10);
write(a,'*',b,'=');
readln(ans);
if a*b=ans then ss:=ss+10
else ss:=ss-5;end;writeln(ss);readln;
//在程序结束时卡主,输入回车后自动关闭,这里楼主想弄得更人性化可以读入Y/N什么的从头开始再一次游戏end.//这个跟上一个题目差不多..vara,b,i,s...
|