程序
character*(*)name
name=’apple’
L=len(name)
Do10I=1,L
10name(I:I)=char(Ichar(name(I:I))+I
print*,name
end
程序运行后输出结果为()