注：文章内容来源于网络，真实性有待确认，请自行甄别。
用TP可以正确输出但换成freepascal却不行！求助！
发表于：2024-10-24 00:00:00浏览：3次
问题描述：用TP可以正确输出但换成freepascal却不行！求助！
programduru; [1..10]ofinteger;i,fi,f2:integer;beginassign(input,' ');reset(input);assign(output,'number.out');rewrite(output);fori:=1to10dobeginread(f1,a[i]);readln(f1);end;fori:=1to10dowrite(a[i],'');fori:=1to10dobeginwrite(f2,a[i]);writeln(f1);end;close(output);end.帮你稍微改了一下应该可以了