- 6


 

2: :

:

:

¢ ⠠

cls

? : ( :)

line input st$ - (st$)

? st$ st$

In = len(st$) in = len(st$)

? : ( :)

s$ = st$ s$

=

st$

do

k = instr(s$,) k = instr(s$,)

if k = 0 then k = 0

? s$ (s$)

exit do

end if

lf$ = left$(s$,k-l) lf$ = left$(s$,k-l)

rt$ = right(s$,ln-k) rt$ = right(s$,ln-k)

ns$ = rt$ + + lf$ ns$ = rt$ + + lf$

? ns$ 䠠 (ns$ )

if ns$ = st$ then exit do ns$ = st$

s$ = ns$ s$ = ns$

loop

end

 

ꠠ , ­ ­ .

 

3.

4 .

­ . ­ :