信息学奥林匹克竞赛-打印图形

来源:互联网 发布:js 浮点数相加 编辑:程序博客网 时间:2024/05/09 09:03



vari,j:longint;beginfor i:=1 to 10 dobeginwrite('':20-2*i);for j:=1 to 10 do write('@');writeln;end;readln;end.



vari,j:longint;beginfor i:=1 to 9 dobeginwrite('':20-2*i);for j:=1 to 2*i-1 do write('*':2);writeln;end;readln;end.


vari,j:longint;beginfor i:=1 to 9 dobeginwrite('':20-2*i);for j:=1 to 2*i-1 do write(i:2);writeln;end;readln;end.


vari,j:longint;beginfor i:=1 to 9 dobeginwrite('':20-2*i);for j:=1 to i do write(j:2);for j:=i-1 downto 1 do write(j:2);writeln;end;for i:=8 downto 1 dobeginwrite('':20-2*i);for j:=1 to i do write(j:2);for j:=i-1 downto 1 do write(j:2);writeln;end;readln;end.



0 0
原创粉丝点击