Ақпараттық жүйелерді сандық және сапалық сипаттау әдістері, жүйелердің теориялық -жиынтықтық сипатталуы, жүйе теориясының аксиомалары

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

begin
  var s:=ReadlnString('Введите строку:').ToLower;
  var c:=ReadlnChar('Введите искомую букву:').ToLower;
  Writeln('Буква встречается ',s.Where(a->a=c).Count,' раз(а)')
end.

Пример
Введите строку: А роза упала на лапу Азора
Введите искомую букву: а
Буква встречается 8 раз(а)

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

begin
  var s:=ReadlnString('Введите фразу:');
  s.Replace('Ты','Я').Replace('ты','я').Println
end.

Пример
Введите фразу: Тыков ест тыблоко
Яков ест яблоко

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

begin
  var s:=ReadlnString('Введите строку:');
  var s1:=ReadlnString('Что найти?');
  var s2:=ReadlnString('Чем заменить?');
  s:=s.Replace(s1,s2);
  s.Println;
end.

Пример
Введите строку: мама, мама, что я буду делать, мама, мама, как я буду жить?
Что найти? мама
Чем заменить? папа
папа, папа, что я буду делать, папа, папа, как я буду жить?

1) ТБВ, 2) ЛЕЕТРФ, 3) 240АЯ, 4) 3

Объяснение:

1) БРА (длина нечетная) → РА (меняем буквы на следующие) → СБ (длина четная) → САБ (меняем буквы на следующие) → ТБВ

2) ГРОТ (длина четная) → ГГРОТ (меняем...) → ДДСПУ (длина нечетная) → КДДСПУ (меняем...) → ЛЕЕТРФ

3) 28МАЯ (длина нечетная) → 28АЯ (меняем цифры на следующие) → 39АЯ (длина четная) → 139АЯ (меняем...) → 240АЯ

4)  По первому правилу не подходит EHA, остались HCA AEA DAH ECC EEH ADE CEA AED

По второму правилу не подходят ECC, ADE и AED; остались HCA AEA DAH EEH CEA

По третьему правилу не подходят AEA и CEA ; остались HCA DAH EEH