编程题
program Program2;
var
a,t:string;
i,j:integer;
begin
a:=`morning`;
j:= l;
for i:=2 to 7 do
if (a[j] j:= i; j:= j-1; for i:=1 to j do write (a[i]); end. 输出:
program Program2;
var
a,t:string;
i,j:integer;
begin
a:=`morning`;
j:= l;
for i:=2 to 7 do
if (a[j] j:= i; j:= j-1; for i:=1 to j do write (a[i]); end. 输出:
发表评论 取消回复