freepascal 中输入一个数后,回车不换行是什么原因?
写好一个程序
var a,b,x,y,m,n,i,j,q:longint;
c:array[1..1000]of longint;
begin
read(x,y,m);
a:=m div x;
b:=m div y;
n:=1;
for i:=1 to a+1 do
begin
for j:=1 to b+1 do
begin
if((a+1-i)*y+(j-1)*x |
免责声明:本内容仅代表回答会员见解不代表天盟观点,请谨慎对待。
版权声明:作者保留权利,不代表天盟立场。
|
|
|
|