j´dirais 253 +/- 1^^
le pgr: ( sur casion graph 100+ d´où l´emmerdement avec les if...etc ^^)
1->A
0->B
Lbl1
If A<10:Then B+1->B:A+1->A
IfEnd
If A>=10 And A<100:Then B+2->B:A+1->A
IfEnd
If A>=100:Then B+3->B:A+1->A
IfEnd
If B=648:Then Stop
Goto1
j´me suis pas embeté avec les plus de 1000 ( déduction logique:))
ps: > = : supérieur ou égal à 