A. Little Pony and Crystal Mine
题意:输出一个类似于十字形的东西
题解:直接打印即可。。。
代码:
1 var n,i,j:longint; 2 begin 3 readln(n); 4 for i:=1 to n>>1 do 5 begin 6 for j:=1 to (n-i<<1+1)>>1 do write('*'); 7 for j:=1 to i<<1-1 do write('D'); 8 for j:=1 to (n-i<<1+1)>>1 do write('*'); 9 writeln; 10 end; 11 for i:=1 to n do write('D');writeln; 12 for i:=n>>1 downto 1 do 13 begin 14 for j:=1 to (n-i<<1+1)>>1 do write('*'); 15 for j:=1 to i<<1-1 do write('D'); 16 for j:=1 to (n-i<<1+1)>>1 do write('*'); 17 writeln; 18 end; 19 end. 20