请问PAS是什么文件,应该用什么来打开?

准确地说, 用任何一种文本文件编辑器都可打开, 最简单当属记事本. 但它是PASCAL源程序文件, 所以要想打开编译的话, 可能用以下程序:

1. Turbo Pascal, 这是Borland公司早期的Pascal开发软件.

2. Delphi, 这是Borland公司近期的Pascal开发软件.

3. Free Pascal, 这是一种开放源码的Pascal开发软件.

当然还有其它的程序. 不过如果你不是学pascal的, 你也不可能去安装这些软件, 而且打开它也没有什么意义.

program work1

const maxn=10000

type sz=array[1..maxn] of byte

var a,b,c:sz

i,j,m,n,lena,lenb,l:integer

procedure add(var a,b,c:sz)

var i:integer

begin

if lena>lenb then l:=lena else l:=lenb

for i:=1 to l do c[i]:=a[i]+b[i]

for i:=1 to l do

if c[i]>=10 then

begin

c[i]:=c[i]-10

c[i+1]:=c[i+1]+1

end

if c[l+1]>0 then l:=l+1

a:=blena:=lenbb:=clenb:=l

end

begin

readln(m,n)

if m>n then exit

else if n-m=1 then writeln(1)

else

begin

a[1]:=1b[1]:=1lena:=1lenb:=1l:=0

for i:=3 to n-m+1 do

add(a,b,c)

for i:=l downto 1 do write(c[i])

end

end.

---