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