while.txt

来自「pl/0我想大家都很清楚这个把 编译原理的人 都会知道这个 很不错的算法程序 」· 文本 代码 · 共 11 行

const a=4,b=-2,c=7.5;
var x,y,m :integer;

begin
x:=b;
while x<10
do
  x:=x+1;
write("x=",x);
end
.