Réponse :
Bonjour,
Explications étape par étape
La bonne réponse est bien 10 240.
'--------------------------------------------------------
dim nb as long, i as long,a as string,k as integer
open "c:\nosdevoirs\5chiffres.txt" for output as #1
nb=0
for i=0 to 99999
a=right$("00000"+ltrim$(str$(i)),5)
if occurrence%(a,"9")=1 then
if occurrence%(a,"0")=1 then
nb=nb+1
print a,
print #1,a,
k=k+1
if k>9 then print #1,"":k=0
end if
end if
next i
print "nb=";nb
print #1,""
print #1,"nb=";nb
close #1
end
function Occurrence%(p as string,p1 as string)
dim n as integer,deb as integer
n=0
deb=instr(p,p1)
do while deb >0
n=n+1
deb=instr(deb+1,p,p1)
loop
Occurrence%=n
end function
