Дана строка символов ( 2-3 строки ) в файле F1. Составить функцию , формирующую новую...

Question

Дана строка символов ( 2-3 строки ) в файле F1. Составить функцию , формирующую новую строку : заменить все повторные вхождения символа пробел одним символом пробела , в начало строки добавить слово " HАЧАЛО " , в конец - слово " КОHЕЦ ". Записать новую строку в файл F1 после исходной.
Free Pascal

Comments

да он принемает так

---

один раз уже сдавал

---

у меня уже стоит АВС паскаль

---

а это много времени у вас займет ?

---

ну пока вы напишете , я поставлю последнюю версию

Answer 1

// PascalABC.NET 3.2, сборка 1473 от 08.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadLines('Pas.txt').ToArray;
  var b:=a.Select(s->s.ToWords.JoinIntoString(' ')).ToArray;
  b[0]:='НАЧАЛО '+b[0]; b[b.Length-1]+=' КОНЕЦ';
  var f:=OpenAppend('Pas1.txt'); // после проверки заменить на Pas.txt
  foreach var s in a do Writeln(f,s); // удалить, если используется Pas.txt
  foreach var s in b do Writeln(f,s);
  f.Close
end.

---

Скачать вложение Текст (TXT)

---

Скачать вложение Текст (TXT)

Comments

все , я все понял , спасибо вам огромное )))