fa1.tmp

来自「对pl0的功能扩充 += -= -- for else」· TMP 代码 · 共 14 行

Iput pl/0 file ?y
0 var a,b,c;

0 begin

0  read(b);

0  for a:=b downto 1 do b--;

0  write(b); 

0 end.