repeat.txt

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

const a=1.4;
var x: integer;

begin
x=a;

repeat
x:=x+1;
until x>10 ;

write("x=",x);
end.