Составить программы в Паскаль: 1. Определить количество букв «d» в первом предложении...

Question

Составить программы в Паскаль:
1. Определить количество букв «d» в первом предложении файла.
2. Создать новый файл и переписать в него текст из исходного файла, заменив каждую пару подряд идущих символов "а" (т.е. "аа") на "А". Остальные символы и их порядок не должны измениться

Answer 1

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

№1. Файл Text.txt

begin
  Writeln('Количество букв "d" равно ',
      ReadAllText('Text.txt').MatchValue('.*\.').Where(c->c='d').Count)
end.

№2. Файл Text1.txt -> Text2.txt

begin
  WriteAllText('Text2.txt',ReadAllText('Text1.txt').Replace('аа','A'))
end.

---

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

---

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

---

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