Question

Помогите с заданием на PASCAL, очень срочно, пожалуйста! [BobbyFresnel] Помоги! Пожалуйста

Answer 1

===== PascalABC.NET =====

begin

 var fn := ReadlnString('Имя файла:');

 if not FileExists(fn) then

   Print('Файл не найден')

 else

 begin

   var a := ReadAllLines(fn);

   for var i := 0 to a.High do

   begin

     var w := a[i].ToWords;

     if w.Count > 1 then

       Swap(w[0], w[w.High]);

     a[i] := w.JoinToString;

   end;

   WriteAllLines(fn, a)

 end

end.

Имя файла вводить с расширением. Если файл находится не в той же папке, где исполняемый модуль программы, указывать полный путь, включая имя диска.

6e8b0dd1a52b149f8048c6e7edd86b48.pas