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

Первыми переправляются дети.

Сын возвращается к маме-папе.

Папа едет на берег к дочери, потом дочь едет за братом и возвращается с ним к папе.

Сын едет к маме, отдает ей лодку, чтобы она переплыла к папе и дочери.

После того, как мама переправилась, дочь садится в лодку и едет к брату, подбирает его, и вместе они едут к родителям.

Дочь остается с родителями, а сын едет к рыбаку, отдает ему лодку.

Рыбак едет к родителям и высаживается.

Дочь садится и едет за братом, привозит его с собой обратно, они отдают лодку рыбаку.

Объяснение:

используется язык pascal

program pr;

var

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

  i: integer;

begin

writeln('вводим значения в массив');

  for i: =1 to 7 do readln (mas[i]);

writeln('выводим значения из массива');

  for i: =7 downto 1 do writeln(mas[i]);

readln;

end;

varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении