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
- Atheros client installation program - Forum Logiciels
- Time of day not set please run setup program ✓ - Forum Debian
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.
