level 1
我想设计一个程序，输入一串字符，然后输出时字符不变，但是每个字符之间都有一个空格，请问该怎么办？
求大神解答
2015年05月01日 10点05分
1
level 15
var
x:string;
y:string;
a,b:integer;
begin
readln(x);
a:=length(x);
y:=x;
for b:=a-1 downto 1 do
begin
a:=a-1;
y:=insert(' ',y,a);
end;
writeln(y);
readln;
end.
可能有错误~
2015年05月01日 12点05分
3
level 7
你在看玩笑？这么简单！
var
x,y:string;
i:integer;
begin
writeln('input x,please');
write('x=');
readln(x);
for i:=1 to length(x) do
if i=1 then
y:=x[i]+' '
else
y:=y+x[i]+' ';
writeln('y=',y);
readln;
end.
2015年05月02日 03点05分
5