UC知道建立一个整数链表 倒序输出 Turbo Pascal
来源：百度知道 编辑：UC知道 时间：2024/06/24 23:53:25
急!!!
program x;
var a:char;
procedure bian(var a:char);
var b:char;
begin
if a<>'?' then begin
read(b);
bian(b);
write(a);
end;
end;
begin
read(a);
bian(a);
end.
program x;
var a:char;
procedure bian(var a:char);
var b:char;
begin
if a<>'?' then begin
read(b);
bian(b);
write(a);
end;
end;
begin
read(a);
bian(a);
end.
这是一个字符串逆序