Креке одновременно подошли 3 купца и 3 разбойника.всем необходимо переправиться на другой берег. у берега - id51829520220611 от vanо12 11.06.2022 14:05

Question

Информатика: Креке одновременно подошли 3 купца и 3 разбойника.всем необходимо переправиться на другой берег. у берега стояла лодка которая может перевозить только 2 человек.если во время переправы на берегу число разбойников и купцов будет одинаковым то разбойники не тронут купцов.если же число разбойников превысит число купцов хоть на 1 то разбойники убьют купцов.как суметь переправить и купцов и разбойников и сколько рейсов совершила лодка? за рейс следует считать движение лодки в 1

vanо12 · Accepted Answer

Program z3;
const n=3;
var A:array[1..n] of string;
var B:array[1..n] of string;
i,k:byte;

begin
writeln('Ввод названий газет:');
for i:=1 to n do
begin write('[',i,'] '); readln(A[i]);end;
writeln('Ввод фамилий подписчиков:');
for i:=1 to n do
begin write('[',i,'] '); readln(B[i]);end;
k:=0;
for i:=1 to n do
if (A[i]='Правда') and (B[i]='Петров') then k:=i;
if k<>0 then writeln('Да, Петров выписывает Правду.')
else writeln('Петров не выписывает Правду.');
end.

Пример:
Ввод названий газет:
[1] Правда
[2] Мир
[3] Атеист
Ввод фамилий подписчиков:
[1] Петров
[2] Дружаев
[3] Базаров
Да, Петров выписывает Правду.

MOGZ ответил