считалочка05, Pascal

считалочка05

const N = 3; K = 3;
var ki, i, count : integer;
var a : array [1..N] of integer;
var j : integer;
var position, sum_position : integer;

begin
    write('start ');
    for i := 1 to N do
    begin
        a[i] := 1;
        write(a[i], ' ');
    end;
    writeln;
    count := N;
    i := 1;
    ki := 1;
    
    position := 0;
    for j := 1 to N do
        sum_position += j;
    writeln('sum_position= ', sum_position);
    
    while count > 1 do
    begin
        if ki mod K = 0 then
        begin
            a[i] := 0;
            count := count - 1;
            ki := 1;
            position += i;
            //
            write ('i= ', i, ' pos= ', position:2, ' ');
            for j := 1 to N do
                write(a[j], ' ');
            writeln;
            //
        end;
        i += 1;
        if i > N then
            i := 1;
        if a[i] = 1 then
            ki += 1;
    end;
    
    write('stop  ');
    for i := 1 to N do
        write(a[i], ' ');
    writeln;
    writeln( 'position= ', sum_position - position );
end.


run \| edit \| history \| help	0