Exercice 17-11-2014
Exercice 17-11-2014
par haiethem 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.
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- Messages : 485
Points : 27083
Réputation : 3
Date d'inscription : 08/11/2010
Age : 47 -
Sujets similaires» Exercice :
» Exercice :
» exercice
» Exercice (nombres 1 - 99 en toutes lettres):
» exercice 13 page 71
» Exercice :
» exercice
» Exercice (nombres 1 - 99 en toutes lettres):
» exercice 13 page 71
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum|
|
|