几道pascal题目!急急急!!今天就要,能有多少是多少答:1.Var i,j,k,n,len,num,p,temp:longint;a:array[1..200] of integer;b:array[1..200] of qword;s:string;function pow(a,times:integer):longint;var i:integer;temp:longint;begin temp:=a;for i:=2 to times do begin temp:=temp*a;end;exit(temp);end;begin assign(input,'...