猿问
下载APP

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<=m)then
            begin
                c[n]:=(a+1-i)*y+(j-1)*x;
            end
            else
            begin
                break;
            end;
        end;
        n:=n+1;
    end;                                   
      for j:=2 to n do
    begin
        if c[1]<c[j] then
        begin
            q:=c[1];
            c[1]:=c[j];
            c[j]:=q;
        end;
    end;
    write(c[1]);
end.

然后run

按要求输入第一个数据后,按回车,无法换行。

刚安装好freepascal的时候是可以换行的,也不知道什么时候开始就无法换行了。

慕粉4282406
浏览 1756回答 1
1回答

qq_惊涛骇浪_3

啦啦啦德玛西亚
打开App,查看更多内容
随时随地看视频慕课网APP
我要回答