这题？

刚开始以为炒鸡煎蛋。

后来

妈耶

var
    m,n,i,j:longint;
    b:boolean;
begin
    read(n);
    i:=0;
    j:=0;
    b:=false;
    while not(eoln) do
    begin
        read(m);
        while (m>0) do
        begin
            if not(b) then 
                write('0 ')
            else write('1 ');
            inc(i);
            if i=n then
            begin
                i:=0;
                inc(j);
                writeln;
            end
            else if j=n then exit;
            dec(m);
        end;
        b:=not(b);
    end;
end.

你们知道发生什么了吗。

我输出多了aioefjoenajoufnwqoeafu个空格。。。。。 QWQ