convertir un nombre à un tab de chars

var N,tc,x,i;
ecrire("Donner un nombre N avec 5 chiffres maximum: "); lire(N); // 45665 vrai, 125467 faux
// prenant par exemple N = 123
tc <- tableau[5]; // tableau de caractere
pour i de 1 jusqu'à 5 faire
	x <- N%10;
	tc[i] <- x;
	N <- (N-x)/10;
fin pour
ecrire("resutat: ",tc); // tc = [1,2,3,0,0]