高考问答华为一键root大师:求助PASCAL:输入任意字符串,从第1个字符开始，将每隔4个字符的字符依次连起来，组成新的字符串，然后输出
来源：百度文库 编辑：高考问答 时间：2024/05/01 17:04:33
我们今天刚刚学,开不了壳呢~~~
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.