江南大学设计学院院长:求助PASCAL:输入任意字符串,从第1个字符开始,将每隔4个字符的字符依次连起来,组成新的字符串,然后输出
来源:百度文库 编辑:神马品牌网 时间:2024/05/12 01:58:24
我们今天刚刚学,开不了壳呢~~~
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.