Program pascal
0123456
-
le roi des faignants -
le roi des faignants -
Bonjour etablir une analyse,un algorithmepuis un pascal qui permet d'inverser un entier n donnée de 3 chiffres.
exp: si n=528,le program afichera:528 inversé devient 825
et merci
exp: si n=528,le program afichera:528 inversé devient 825
et merci
Configuration: Windows XP Internet Explorer 6.0
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.
