趣题之家程序贴吧——Toj1003
|
Toj1003
|
基本信息:
提交人:dailongao 提交日期:3/23/2006 11:43:28 PM 点击数:1444 |
编辑 删除
|
|
程序简介:
Easy Program......
|
程序内容:
Program TOJ_1003;
var
a,c,p,q,t:integer;
Procedure space(k:integer);
var
i:integer;
begin
For i:=1 to k do write(' ');
end;
begin
read(a);
p:=1;
q:=-1;
for c:=a downto 1 do
begin
space(c-1);
q:=q+2;
For t:=1 to q do Write(chr(64+p));
Writeln;
p:=p+1;
end;
end.
|
|
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
/bbs/pascal_view.asp, line 345 |