#  Nb[i]              | Div
#  Nbsous[i]          \ Result
#    Nb[i+1]          \
#    Nbsous[i+1]      \
#                     \
#             reste

Nb[1]=$1
Div=$2

#echo "nombre   " $Nb
#echo "Diviseur " $Div



reste=0
result=0
Ncalcul=0

# écriture de la 1ere ligne
Ncalcul=$Ncalcul+1
texte[$Ntexte]=${Nb[Ncalcul]}

# trouve le nombre de chiffre du nombre à diviser
level=0
a=0
while [ $a -le ${Nb[Ncalcul]} ]
do
level=$(($level + 1))
let "a=10**$level"
done
# echo $level "chiffres"



# Détermine la partie à diviser
level_act=$level
Nb_act=0
while [ $Nb_act -lt $Div ]
do
level_act=$(($level_act - 1))
let "Nb_act=${Nb[Ncalcul]}/(10**$level_act)"
#echo $level_act "=>" $Nb_act
done


Result[$Ncalcul]=$(($Nb_act/$Div))
Nb_sous[$Ncalcul]=$((${Result[Ncalcul]}*$Div))

texte[$Ncalcul]=${Nb_sous[Ncalcul]}
Ncalcul=$Ncalcul+1




# Affichage du calcul
Ntexte=0
for Ntexte in 0 1 2 3 4
do
echo ${texte[Ntexte]}

done
echo ${Result[1]}