{ Pascal ABC.NET 3.2 Входной текстовый файл с числами ч/з один пробел. (в конце не должно быть пробелов!) } const f_in_name = 'd:\in9.txt'; f_tmp_name = 'd:\tmp.tmp'; var f_in,f_out: text; i, k: integer; begin Assign(f_in, f_in_name); Assign(f_out, f_tmp_name); Reset(f_in); Rewrite(f_out); k := 0; while not Eof(f_in) do begin Read(f_in, i); k := k + 1; if k mod 2 <> 0 then Write(f_out, ' ', i); end; Close(f_out); Close(f_in); DeleteFile(f_in_name); RenameFile(f_tmp_name, f_in_name); end.
Объяснение:
Первыми переправляются дети.
Сын возвращается к маме-папе.
Папа едет на берег к дочери, потом дочь едет за братом и возвращается с ним к папе.
Сын едет к маме, отдает ей лодку, чтобы она переплыла к папе и дочери.
После того, как мама переправилась, дочь садится в лодку и едет к брату, подбирает его, и вместе они едут к родителям.
Дочь остается с родителями, а сын едет к рыбаку, отдает ему лодку.
Рыбак едет к родителям и высаживается.
Дочь садится и едет за братом, привозит его с собой обратно (наконец-то вся семья снова вместе), они отдают лодку рыбаку.
Лодка пересекла реку 13 раз.