|
|
back to boardwhy my code always be "Compilation error" Posted by chinacn 30 Nov 2007 16:51 please help me!thank you very much. program p1091; var s,i,k,j:longint; yy:longint; yinzi:array[1..1000] of longint; first:boolean; lyy,total:int64; function c(y,x:longint):int64; var i:longint; i1,x1:int64; begin c:=1; x1:=x; for i:=(x+1) to y do begin i1:=i; c:=c*i1; c:=c div (i1-x1); end; end; begin readln(k,s); i:=2; while (s div i>=k) do begin fillword(yinzi,sizeof(yinzi) shr 1,0); first:=false; yy:=i; for j:=2 to i do while ((yy mod j)=0) and (yy>0) do begin inc(yinzi[j]); if yinzi[j]>1 then first:=true; yy:=yy div j; end; if not(first) then begin yy:=0; for j:=2 to 30 do inc(yy,yinzi[j]); if odd(yy) then begin lyy:=c(s div i,k); inc(total,lyy); end else begin lyy:=c(s div i,k); dec(total,lyy); end; end; inc(i); end; if total>10000 then writeln('10000') else writeln(total); end. Re: why my code always be "Compilation error" use result:=result*i1 instead of c:=c*i1; and fillchar() instead of fillword() |
|
|