程序 character*(*)name name=’apple’ L=len(name) Do10I=1,L 10name(I:I)=char(Ichar(name(I:I))+I print*,name end 程序運行后輸出結果為()