首页 > 试题广场 >

program program2; var &nb...

[填空题]
program program2;
var
    i, j: integer;
    str1, str2: string;
begin
    str1 := 'pig-is-stupid';
    str2 := 'clever';
    str1[1] := 'd'; str1[2] := 'o';
    i := 8;
    for j := 1 to 6 do begin
        str1[i] := str2[j]; inc(i);
    end;
    writeln(str1);
end.

输出:1

这道题你会答吗?花几分钟告诉大家答案吧!