repeat-until.txt

来自「编译原理课程设计,清华大学版教材的pl0编译器的源码.」· 文本 代码 · 共 12 行

var x,y,rem;
begin
  read(x);
  read(y);
  repeat
    rem:=x;
    x:=x-1;
    write(x);
  until rem=0;
  write(x)
end.