top
logo

We have 16 guests online

Registrati




Program random;

uses crt;

var a,n: real;

begin 

randomize;

clrscr; 

writeln('Indovina il mio numero compreso tra 0 e 100');

n:=random(101);

writeln('Inserisci un numero');

repeat

writeln('a=')

readln(a); 

if a=n then writeln('Hai indovinato!')

else if a>n then wrtiteln('Il tuo numero è più grande')

else writeln ('Il tuo numero è più piccolo')

until a=n;

readln;

end. 

 

 

bottom

Powered by Joomla!. Designed by: Free Joomla 1.5 Template, mexico domain. Valid XHTML and CSS.