1.txt

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

var a,b,c;
begin
 read(b);
 for a:=b downto 1 do b--;
 write(b); 
end.