free pascal :输入任意字符串,从第1个字符开始，将每隔4个字符的字符依次连起来，组成新的字符串，然后输

显示全部楼层 · 2010-8-19 11:56:00

（字符数不超过255）作业、

千问 · 2010-8-19 11:56:00

我的答案：varstr1:string;i:integer;beginreadln(str1);for i:=1 to length(str1) do
if i mod 5=1
then write(str1)end.经Borland Pascal 及 Free Pascal 测试，效果达标又：经测试：LennyAscetic 的程序不能输出第一个字符千年的伯爵的程序会将原字符串输出，只是每隔四个字符插入一个空格Gaodl7136 的程序输出正确，但比较不简洁

千问 · 2010-8-19 11:56:00

不知道是不是这个意思var i:longint;
s,s0:string;begin readln(s); for i:=1 to length(s) do if i mod 5=0 then s0:=s0+s; writeln(s0);end.

千问 · 2010-8-19 11:56:00

应该是这样的：var s:string;
i:integer;begin read(s); i:=6; write(s[1]); while i<=length(s) dobegin write(s); inc(i,5);end; writeln;end.

千问 · 2010-8-19 11:56:00

var i,j:longint; s:string;beginreadln(s); for i:=1 to length(s) dobegin
if i mod 4=0 then
begin
for j:=i-(4-1) to i do write(s[j]);
write(' ')