niu2.txt

来自「c语言做的pl0编译器」· 文本 代码 · 共 14 行

var x,i;
procedure mod;
    x:=x+i;
begin
    i:=1;
    x:=0;
    while i<50 do
        begin
	    write(x);
	    call mod;
	    i:=i+1
	end
end.