Exercice 17-11-2014

Poster un nouveau sujet   Répondre au sujet

Voir le sujet précédent Voir le sujet suivant Aller en bas

Exercice 17-11-2014

Message par haiethem le Lun 17 Nov - 15:30

program ordinal;
uses wincrt;
var n:integer;

begin
readln(n);
case n of
11..20 : writeln(n,' th');
else case n mod 10 of
1: writeln(n,' st');
2: writeln(n,' nd');
3: writeln(n,' rd');
else writeln(n,' th');
end;
end;
end.

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 414
Points : 13873
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous pouvez répondre aux sujets dans ce forum