Var x: integer; begin writeln('введите число'); readln(x); if x mod 2=0 then writeln('число ',x,' - чётное') else writeln('число ',x,' - нечётное'); if x> 0 then writeln('число ',x,' - положительное') else if x< 0 then writeln('число ',x,' - отрицательное') else writeln('число ',x,' - неположительное и неотрицательное число') end.
Спасибо
Ответ дал: Гость
1 способ.
сначала переправляются мальчик и взрослый. потом этот же мальчик оотправляется обратно и переправляет второго взрослого. а затем мальчик возвращается, берёт второго мальчика, и они плывут на другой берег.2 способ.
сначала взрослый и мальчик переправляются через реку. обратно плывёт мужчина. потом этот мужчина берёт второго мальчика и они вместе переправляются через реку. мальчик плывтобратно и вместе со вторым мужчиной переплывет на второй берег реки. вот и всё.
Ответ дал: Гость
номер 4, так как две собаки в этой части не допущены.
Популярные вопросы