显示:
for i;=50 to 1000-1 do write(a[i]);
writeln;
放入字符串:
setlength(s,1000-50);
for i;=50 to 1000-1 do s[i]:=a[i];
//var i:integer;s:string;
for i;=50 to 1000-1 do write(a[i]);
writeln;
放入字符串:
setlength(s,1000-50);
for i;=50 to 1000-1 do s[i]:=a[i];
//var i:integer;s:string;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货