jz1662 【基础】班委确定

 

题目：http://oj.jzxx.net/problem.php?id=1662

 

program ex1662;
var k,i,h,s,w,z,m,n:longint;
    f:boolean;
    a:array[1..1000] of 0..1;
  
begin
    readln(k,m,n);
    fillchar(a,sizeof(a),1);
    f:=true;
    s:=k; w:=0;
    while s>5 do
    begin
        t:=0;
        if f then begin h:=1;z:=m mod s; end
        else begin h:=-1;z:=n mod s; end;
        while t<z do
        begin
            w:=w+h; 
            if w=0 then w:=k;
            if w>k then w:=1;
            t:=t+a[w];
        end;
        a[w]:=0;
        f:=not f;
        dec(s);
    end;
    
    f:=true;
    for i:=k downto 1 do
        if a[i]=1 then
            if f then begin write(i); f:=false; end
            else write(' ',i);
    writeln;
end.

 

转载于:https://www.cnblogs.com/qilinart/articles/5097940.html