A voir également:
- Explication
- Paris multiple 2/6 explication - Forum Excel
- Chambre 1408 explication fin ✓ - Forum Mozilla Firefox
- Black butler saison 2 explication ✓ - Forum Cinéma / Télé
- Foyer netflix explication - Accueil - Guide streaming
- Paris Sportifs Combinés - Forum Loisirs / Divertissements
10 réponses
Ecrire une fonction Kchiffre qui prend en entrée un nombre entier n et un nombre entier k et renvoie le K ème chiffre(à partir de la droite) du nombre n si k est inferieur ou egal au nombre de chiffre n sinon renvoie -1
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
function Kchiffre(n,k:integer):integer;
var s:string; code:integer;
begin
str(n,s);
val(s[length(s)-k+1,result,code);
if code>0 then
result:=-1;
end;
var s:string; code:integer;
begin
str(n,s);
val(s[length(s)-k+1,result,code);
if code>0 then
result:=-1;
end;
