t.tny

来自「编译原理课程设计中」· TNY 代码 · 共 9 行

read x;
if fact :=1;
repeat
  fact :=fact * x;{SA;FJ;AS}}
  x :=x - 1
 until x = 0;
 write fact
end