Created by manuel-eleve-2de-indice2019
Created on November 05, 2019
172 Bytes
def codeacces(N): P=N;S=0;k=1 while k<=4: U=P%10 k=k+1 S=S+k*U P=(P-U)//10 R=S%7 Clé=7-R return(Clé)