A voir également:
- Program pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- This program cannot be run in dos mode ✓ - Forum Programmation
- Invalid configuration information please run setup program ✓ - Forum Windows XP
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.
