Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Uses crt;
- var
- comp,user:integer;
- begin
- randomize;
- comp := random(101);
- writeln('Program have a number from 0 to 100 : ');
- writeln;
- writeln;
- while(comp <> user) do
- begin
- write('Guess a number : ');
- readln(user);
- if(user > comp) then
- begin
- writeln('Mnogo');
- end;
- if(user < comp) then
- begin
- writeln('Malo');
- end;
- end;
- writeln('You win ');
- readkey;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement