Aidez mois svp
Fermé
joujou
-
4 déc. 2014 à 20:32
dolig Messages postés 14 Date d'inscription dimanche 19 octobre 2014 Statut Membre Dernière intervention 20 avril 2016 - 19 mars 2015 à 15:38
dolig Messages postés 14 Date d'inscription dimanche 19 octobre 2014 Statut Membre Dernière intervention 20 avril 2016 - 19 mars 2015 à 15:38
1 réponse
dolig
Messages postés
14
Date d'inscription
dimanche 19 octobre 2014
Statut
Membre
Dernière intervention
20 avril 2016
19 mars 2015 à 15:38
19 mars 2015 à 15:38
traduction en pascal
program nomage;
var
age: real;
Begin
writeln('entrez votre age svp');
readln(age);
if (age <=6) and (age <=7) then
writeln('tu es poussin')
else
if (age =8) and (age <=9) then
writeln('tu es pupille')
else
if (age =10) and (age <=11) then
writeln('tu es minime')
else
writeln('tu cadet');
readln(); (* pour marquer une pause *)
end.
program nomage;
var
age: real;
Begin
writeln('entrez votre age svp');
readln(age);
if (age <=6) and (age <=7) then
writeln('tu es poussin')
else
if (age =8) and (age <=9) then
writeln('tu es pupille')
else
if (age =10) and (age <=11) then
writeln('tu es minime')
else
writeln('tu cadet');
readln(); (* pour marquer une pause *)
end.