В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
пматмг
пматмг
14.09.2021 22:53 •  Информатика

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

Показать ответ
Ответ:
SIBGATULLINA98
SIBGATULLINA98
09.10.2020 20:20

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

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота