PROGRAM EX01; VAR A,B; BEGIN FOR A:=1 TO 10 DO B:=B+1; WRITE(B); FOR A:=10 DOWNTO 1 DO B:=B-1; WRITE(B) END.
虫虫下载站 半导体技术网 电子研发网 源码地带 电源技术网 单片机技术网 医疗电子技术 嵌入式系统与单片机