Nombre en toutes lettres

par **haiethem** Lun 17 Nov - 16:57

begin
readln(n);
case n mod 10 of
0:s1:='';
1:s1:='un';
2:s1:='deux';
3:s1:='trois';
4:s1:='quatre';
5:s1:='cinq';
6:s1:='six';
7:s1:='sept';
8:s1:='huit';
9:s1:='neuf';
end;
case n mod 20 of
0:s2:=' ';
10:s2:='dix';
11:s2:='onze';
12:s2:='douze';
13:s2:='treize';
14:s2:='quatorze';
15:s2:='quinze';
16:s2:='seize';
17:s2:='dix sept';
18:s2:='dix huit';
19:s2:='dix neuf';
end;
case n div 10 of
2:s3:='vingt';
3:s3:='trente';
4:s3:='quarente';
5:s3:='cinquante';
6,7:s3:='soixante';
8,9:s3:='quatre vingts';
end;
case n of
1..10:writeln(n,' ** ',s1,s2);

11..19: writeln(n,' ** ',s2);

20..69,80..89:if n mod 10 = 1 then writeln(n,' ** ',s3,' et ',s1)
else writeln(n,' ** ',s3,' ',s1);
else if n mod 10 = 1 then writeln(n,' ** ',s3,' et ',s2)
else writeln(n,' ** ',s3,' ',s2)
end;
end;
end.