摘要: varl,i,tj:longint;a:array['a'..'z']of longint;x,c:char;b:array[0..500]of char;procedure print;begin for i:=1 to l do//要一个一个输出,不能直接w... 阅读全文
posted @ 2016-12-02 21:52 银叶草 阅读(181) 评论(0) 推荐(0)
摘要: vara,b:array[0..9]of longint;n:longint;procedure print;vari:longint;begin for i:=1 to n do write(a[i]:5);//要保留五个常宽 writeln;en... 阅读全文
posted @ 2016-12-02 21:30 银叶草 阅读(198) 评论(0) 推荐(0)
Live2D