登录 | 注册 |
趣题之家程序贴吧——Toj1003
 



Toj1003

基本信息:
提交人:dailongao         提交日期:3/23/2006 11:43:28 PM        点击数:1444

编辑 删除

程序简介:

Easy Program......

 

程序内容:  

Program TOJ_1003;
{Copyright by Dragon.Dai@E.O.T}
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