М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
батя160
батя160
25.09.2022 23:15 •  Информатика

Креке одновременно подошли три купца и три разбойника. всем необходимо было переправиться на другой, противоположный берег. у берега стояла лодка, которая могла вместить только двух человек. купцы боязливо поглядывали на разбойников, так как знали, что во время переправы могло всякое случиться. если во время переправы на том или ином берегу число купцов и разбойников будет одинаковым, то разбойники не тронут купцов; если же число разбойников превысит число купцов хотя бы на одного человека, то разбойники убьют купцов. перед купцами стояла сложная , но она легко была ими решена -швее перебрались на тот берег и жертв не было. как сумели переправиться на тот берег купцы и разбойники и сколько рейсов туда и обратно совершила лодка? за рейс следует считать движение лодки в одном направлении. решить

👇
Ответ:
fantomidri
fantomidri
25.09.2022
2 разбойника сели на лодку и перебрались на другой берег, затем два купца перебрались на другой берег. Последний разбойник перебрался на противоположный берег, и затем последний купец перебрался на противоположный берег. Лодка совершила 2 рейса.
4,5(75 оценок)
Открыть все ответы
Ответ:
Диана2404
Диана2404
25.09.2022

program actors;

var

 i: integer;

 mas: array [1..10] of integer;

begin

 for i := 1 to 10 do  

 begin

   read(mas[i]);  

 end;

 for i := 1 to 10 do  

 begin

   if (mas[i] >= 9) and (mas[i] <= 11) then

     writeln('Элемент: ', i, ' Значение: ', mas[i]);

 end;

end.

Объяснение:

program actors;  // Название программы

var

 i: integer;  // Целочисленная переменная счетчик для массива

 mas: array [1..10] of integer;  // Целочисленный массив с 10-ю элементами

begin  // Начало программы

 for i := 1 to 10 do   // Идем с первого по десятый индексы

 begin  // Начало цикла

   read(mas[i]);  // Считываем значение с клавиатуры

 end;  // Конец цикла

 for i := 1 to 10 do  // Идем с первого по десятый индексы

 begin  // Начало цикла

   if (mas[i] >= 9) and (mas[i] <= 11) then  // Если значение элемента массива mas с индексом i ≤ 11 И ≥ 9, тогда

     writeln('Элемент: ', i, ' Значение: ', mas[i]);  // Выводим индекс и значение элемента

 end;  // Конец цикла

end. // Конец программы

4,5(5 оценок)
Ответ:
200005nikolll
200005nikolll
25.09.2022

program actors;

var

 i: integer;

 mas: array [1..10] of integer;

begin

 for i := 1 to 10 do  

 begin

   read(mas[i]);  

 end;

 for i := 1 to 10 do  

 begin

   if (mas[i] >= 9) and (mas[i] <= 11) then

     writeln('Элемент: ', i, ' Значение: ', mas[i]);

 end;

end.

Объяснение:

program actors;  // Название программы

var

 i: integer;  // Целочисленная переменная счетчик для массива

 mas: array [1..10] of integer;  // Целочисленный массив с 10-ю элементами

begin  // Начало программы

 for i := 1 to 10 do   // Идем с первого по десятый индексы

 begin  // Начало цикла

   read(mas[i]);  // Считываем значение с клавиатуры

 end;  // Конец цикла

 for i := 1 to 10 do  // Идем с первого по десятый индексы

 begin  // Начало цикла

   if (mas[i] >= 9) and (mas[i] <= 11) then  // Если значение элемента массива mas с индексом i ≤ 11 И ≥ 9, тогда

     writeln('Элемент: ', i, ' Значение: ', mas[i]);  // Выводим индекс и значение элемента

 end;  // Конец цикла

end. // Конец программы

4,7(4 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ