level 2
program ge01;
var n,g,i,k:integer; f1,f2,f:array[1..600] of integer;
begin fillchar(f1,sizeof(f1),0);
fillchar(f2,sizeof(f2),0); fillchar(f,sizeof(f),0);
readln(n); f1[600]:=1; F2[600]:=1;
for k:=3 to n do begin (______) end;
i:=1;
while (f[i]=0) and (i<=600) do i:=i+1;
for k:=i to 600 do write(f[k]);
writeln;
end.
前端程序已给出,求(————)内的程序
2013年12月08日 05点12分