A voir également:
- Program pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Money manager program - Télécharger - Bourse & Finance
- Device harddiskvolume3 program files bonjour mdnsnsp.dll ✓ - Forum Virus
1 réponse
no problemo !
program alenvers;
type tn = set of char;
var s: string;
n: tn;
begin
n := ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];
write('Nombre: ');
readln(s);
if length(s) <> 3 then writeln('Je n''ai pas 3 caractères')
else if s[1] not in n then writeln(s[1], ' n''est pas un chiffre')
else if s[2] not in n then writeln(s[2], ' n''est pas un chiffre')
else if s[3] not in n then writeln(s[3], ' n''est pas un chiffre')
else writlen('Inversion de ', s, ' : ', reverse(s));
end.
program alenvers;
type tn = set of char;
var s: string;
n: tn;
begin
n := ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];
write('Nombre: ');
readln(s);
if length(s) <> 3 then writeln('Je n''ai pas 3 caractères')
else if s[1] not in n then writeln(s[1], ' n''est pas un chiffre')
else if s[2] not in n then writeln(s[2], ' n''est pas un chiffre')
else if s[3] not in n then writeln(s[3], ' n''est pas un chiffre')
else writlen('Inversion de ', s, ' : ', reverse(s));
end.
