exam.tny

来自「这是一个小型语言tiny的编译器」· TNY 代码 · 共 15 行

{Sample program
compute factorial
}
 read x;
 if  0<x  then 
    fact:=1;
    repeat
         fact:=fact*x;
          x:=x-1
   until  x=0;
write fact
end