program test;
uses crt;
var l1,l2,i,ilk,ilu,su,po,n:integer;
begin
randomize;clrscr;
while (n<1) or (n>5) do
begin
writeln('wybierz poziom ');
read(n);
end;
for i:=1 to 10 do
begin
l1:=random(n*10);l2:=random(n*10);ilk:=l1*l2;
write(l1,'*',l2,'=? ');read(ilu);
if ilu=ilk then
begin
su:=su+1;
textcolor(green);
writeln(l1,'*',l2,'= ',ilk);
end
else
begin
textcolor(red);
writeln(l1,'*',l2,'= ',ilk);
po:=po+1;
sound(500);delay(10);nosound;
end;
textcolor(white);
writeln('liczba sukcesow = ',su);
writeln('liczba porazek = ',po);
readkey;
end;
end.
|
 |