Perl > soustraction et while

Code d'insertion

Options

Téléchargement

!#/usr/bin/perl
$argent = 10;
while ($argent != 0)
{ print "Je donne 1 euro \n ";
$argent - = 1; }
print " J'ai plus d'argent! \n ";