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