Хитрое заполнение ячеек Опции

[Unconnected]

Привет всем.

Столкнулся с задачами, решение которых я если и в голове очень смутно, но представляю, то в коде ну вообще никак... Погуглил по слову Комбинаторика, кажется, это из этой области. Вот задача:

Требуется в каждую клетку квадратной таблицы размером NxN поставить ноль или единицу так, чтобы в любом квадрате размера KxK было ровно S единиц.
Во входном файле записаны три числа – N, K, S (1 ≤ N ≤ 100, 1 ≤ K ≤ N, 0 ≤ S ≤ K2).

И вывести надо получившуюся матрицу. Может кто-нибудь объяснить алгоритм решения? Я додумался лишь до того, что сначала надо посчитать все возможные "квадраты", а уже потом, исходя из их расположения заполнять..

[volvo]

Должно работать на любых матрицах. Хотя не совсем понятно:
1) зачем ты заполняешь элементы массива посимвольно, если есть FillChar:

//  for i:=1 to n do
//    for j:=1 to n do big[i,j]:='0';
FillChar(big, sizeof(big), '0');

Точно так же сначала заполнить small нулями, а потом, где надо, поставить единицы, избавишься от вложенного цикла.

2) У тебя матрица big заполняется НЕ "образцом" из small. Распечатай small и убедись в этом. Потому что надо так:

  y:=0;
  for i:=1 to n do
    begin
      if (y=k) then y:=1 else inc(y);
      x := 0; // Вот тут обнуляем X
      for j:=1 to n do
        begin
          if (x=k) then x:=1 else inc(x);
          big[i,j]:=small[y, x]; // А тут - меняем индексы местами
        end;
     end;

Вот тогда будет точное заполнение. Здесь это не играет особой роли, но на будущее - внимательнее с такими вещами, где-нибудь может вылезти неправильное поведение. Можно попробовать похимичить с MOD и обойтись без доп. переменных X, Y.