Если число делится на 3 и на 5, то оно делится и на их произведение, т.е. на 15.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u> <u>Внимание! Если программа не работает, обновите версию!</u>
begin var n:=ReadInteger('Введите натуральное число:'); if n mod 15=0 then Writeln('Число делится на 3 и 5 одновременно') else Writeln('Число не делится на 3 и 5 одновременно') end.
<u>Пример</u> Введите натуральное число: 1115 Число не делится на 3 и 5 одновременно
В начале переправляем 1 и 2 разбойников потом 2 переправляет в лодке 1 купца , купец вылазеет , а разбойник остается в лодке далее переправляем 2 купца ну а дальше переправляем 3 купца и в конце 2 и 3 разбойники вылазят из лодки на берегу