Trop fier, je suis !
et :
est d'une astuce incroyable !
B$[ I ]=STR$( POS(A$,STR$(I)) ) Bravo C.Ret, une fois de plus !
Trop fier, je suis !
est d'une astuce incroyable !
Code : Tout sélectionner
10 INPUT A$ @ B$ = '' @ L=LEN(A$)
20 FOR I = 1 TO L @ S = VAL(A$[I,I]) @ B$[S,S] = STR$(I) @ NEXT I @ PRINT A$;' ';B$
Code : Tout sélectionner
10 INPUT N:L=INT LOG N:N=N/10^L:L=L+1:S=0
20 FOR I=1 TO L:R=INT N:N=(N-R)*10:S=S+I*10^(L-R):NEXT I:PRINT S
Code : Tout sélectionner
10 INPUT M$ @ I = 1
20 IF M$[I,I]="0" THEN M$[I-1,I]="" @ I=I-1 @ GOTO 20
30 I=I+1 @ IF M$[I,I]<>"" THEN 20 ELSE PRINT M$
Code : Tout sélectionner
Casio FX502P
SAC 1 Min7 Lbl0 MR7 M+7 MinF + 1 M+8 = x=F? GTO1
GTO0 Lbl1 2 M-8 log x MR8 PSE =
22 pas de programme, donne 39 11,74016983 en 5,2 secondes