如果这就是爱情的歌词:求助PASCAL:输入任意字符串,从第1个字符开始,将每隔4个字符的字符依次连起来,组成新的字符串,然后输出
来源:百度文库 编辑:高校问答 时间:2024/10/04 23:49:42
我们今天刚刚学,开不了壳呢~~~
var
s,r:string;
i:integer;
begin
readln(s);
r:='';
for i:=1 to length(s) do
begin
r:=r+s[i];
i:=i+3;
end;
writeln(r);
end.