50 БАЛЛОВ ЗА ЛУЧШИЙ!!! ** столе лежат книги, которые нужно упаковать. Если их связать по...

Question

50 БАЛЛОВ ЗА ЛУЧШИЙ!!! На столе лежат книги, которые нужно упаковать. Если их связать по 4, по 5, или по 6 в пачку, то каждый раз останется 1 книга, а если связывать по 7 книг в пачку, то лишних книг не останется. Сколько книг могло быть на столе, если известно, что их число не превосходит 2000. PASCAL

Answer 1

Будем перебирать 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

Comments

спасибо можешь ещё помочь с задачкой?

---

ща я сюда ссылочку кину, ок?

---

https://znanija.com/task/31096188