新加坡国际漫游:求助PASCAL:输入任意字符串,从第1个字符开始,将每隔4个字符的字符依次连起来,组成新的字符串,然后输出
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/02 09:48: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.