daily pastebin goal
50%
SHARE
TWEET

Untitled

a guest May 27th, 2018 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program jeuDeDe;
  2.  
  3. const
  4.    
  5.     De = 5;
  6.  
  7. var
  8.    
  9.     lanceDe: integer;
  10.  
  11. begin
  12.  
  13.     randomize;
  14.    
  15.     lanceDe:= (random (De) + 1)  + (random (De) + 1);
  16.     if (lanceDe = 7) or (lanceDe = 11) then
  17.         writeln ('Victoire v_o_v')
  18.    
  19.     else if (lanceDe = 2) or (lanceDe = 3) or (lanceDe = 12) then
  20.         writeln ('Perdu \_o_/')
  21.    
  22.     else
  23.         begin
  24.             lanceDe:= (random (De) + 1)  + (random (De) + 1);
  25.             if lanceDe = 7 then
  26.                 writeln ('Victoire v_o_v')
  27.            
  28.             else writeln ('Perdu \_o_/');
  29.         end;
  30.    
  31.     writeln (lanceDe);
  32.     readln;
  33.  
  34. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top