следующая тема »

[19 Сентябрь 2025, 08:21:03]

Новости, реклама:

[19 Сентябрь 2025, 08:21:03]

Новости, реклама:

[7floor]

Хоть бы сказал, на чем задачку делать :-) Судя по теме, то вроде как на паскале, короче:

Код:

program CatMices;

{$APPTYPE CONSOLE}

var
  k, n: Integer;
  Mices: array[1..100] of Boolean;
  MouseIndex, MouseCounter, MicesLeft: integer;

begin
  Write('Enter k (k <= 100): ');
  ReadLn(k);
  Write('Enter n: ');
  ReadLn(n);

  for MouseIndex := 1 to k do
    Mices[MouseIndex] := True;

  MicesLeft := k;
  MouseIndex := 0;
  while MicesLeft > 0 do begin
    MouseCounter := 0;
    while MouseCounter < n do begin
      MouseIndex := MouseIndex + 1;
      if MouseIndex > k then
        MouseIndex := 1;
      if Mices[MouseIndex] then
        MouseCounter := MouseCounter + 1;
    end;
    Mices[MouseIndex] := False;
    MicesLeft := MicesLeft - 1;
  end;

  WriteLn('Last mouse was ', MouseIndex);
  ReadLn;
end.

Писалось на делфи, но использовался тут только чистый паскаль, кроме камента {$APPTYPE CONSOLE}. Из соображений "образовательности" задачки не юзалось никаких наворотов типа динамических списков еще чего (хотя можно было сделать покрасивше :-) ). Даже массив не динамический. А так, дубово, как и все задачки такого типа.