50 БАЛЛОВ ЗА ЛУЧШИЙ!!!

На столе лежат книги, которые нужно упаковать. Если их связать по 4, по 5, или по 6 в пачку, то каждый раз останется 1 книга, а если связывать по 7 книг в пачку, то лишних книг не останется. Сколько книг могло быть на столе, если известно, что их число не превосходит 2000.

PASCAL

Будем перебирать i от 1 до [2000/7] = 285. Для каждого такого i узнаем, правда ли, что 7i дает остатки 1 при делении на 4, 5 и 6; если это так, то выводим 7i на печать.

Free Pascal Compiler version 3.0.2

var i, n: integer;

begin

   for i := 1 to 285 do

   begin

       n := 7 * i;

       if (n mod 4 = 1) and (n mod 5 = 1) and (n mod 6 = 1) then

           writeln(n);

   end;

end.

Вывод программы:

301

721

1141

1561

1981