Регистрация
artyom11111112
20.04.2021 20:32
Информатика
Есть ответ 👍

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

181
268
Посмотреть ответы 2

Ответы на вопрос:

Дафааааааа
Дафааааааа
4,8(59 оценок)

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

aleksejsmolyan
aleksejsmolyan
4,5(22 оценок)

program p;

var a,b,o,l: integer;

begin

writeln("введите стороны a и b: ");

readln(a,b);

o: =(a+b) div 10;

l: =(a+b) mod 10;

writeln("нужно досок: ",o,"останется непокрыто: ",l);

readln; end.

Популярно: Информатика