מה הבעיה בתוכנית? זה דחוף!!
| |
program project;
uses crt;
var p,a,l,x,y,z,i,w,m,d,e,q,sw:longint;
pp,rq,qu,g:longint;
ok:boolean;
begin
ok:=true;
clrscr; (*Clear Screen*)
qu:=0; (*Number of questions*)
rq:=0; (*Number of questions that were right*)
m:=0; (*Number of mistakes*)
d:=0; (*The Level*)
e:=1; (*the first number*)
q:=10; (*the last number*)
sw:=1; (*the switch*)
writeln('Choose an action');
writeln('1-hibur,2-hisur,3-kefel,4-hiluk');
readln(p);
case p of
1:
begin
writeln('rama:1,2,3,4,5,6,7,8,9,10');
while m<4 and ok do
readln(d);
begin
case d of
z:=random(10);
y:=random(10);
1: writeln(z,'+',y);
2: writeln(z+10,'+',y+10);
3: writeln(z+20,'+',y+20);
4: writeln(z+30,'+',y+30);
5: writeln(z+40,'+',y+40);
6: writeln(z+50,'+',y+50);
7: writeln(z+60,'+',y+60);
8: writeln(z+70,'+',y+70);
9: writeln(z+80,'+',y+80);
10: writeln(z+90,'+',y+90);
end; j:=y+z;
writeln('write ur answer');
readln(h);
if j=h then
begin
writeln('ok');
ok:=false;
end
else
writeln('no, ur an idiot');
end;
m:=m+1;
end;
end;
readln;
end.
|
|
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
