[PASCAL] Jogo do numero!
Jogo espetacular feito por mim na aula de BP, este jogo gera um numero de 0 a mil e tu tens de adivinhar o numero que o computador gera!
program numero;
uses crt;
var mero,adivi: integer;
begin
clrscr;
randomize;
mero:=random(1000);
repeat
write('Introduza um numero para adivinhar?:');
readln(adivi);
if mero > adivi then writeln('Muito baixo');
if mero < adivi then writeln('Muito Alto');
readkey;
clrscr;
until mero = adivi;
writeln('Acertas-te');
readkey;
end.
Já temos com que nos entreter nas aulas de informatica!