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.

b0c726b05a96c0ab11271c396da28631.txt

4f10d4c1200a00ea137b1d85160cd8eb.txt

0dee9317eb56d651d09d67a776c987c1.txt