PASCAL!

1. Определить, как часто встречается определенный символ в строке
2. У Леонида Пантелеева в рассказе “Буква «ты»” девочка Иринушка думала, что буква “я” читается как “ты”. Во входной строке записаны слова в произношении Иринушки. Замените неправильный слог “ты” на правильный слог “я”.
3. Найти в строке определенную последовательность символов и заменить ее другой.

"Дело пошло. Машина дала безграмотное определение, что такое неонка, затем она ответила Фарфуркису, что пишет "внутре" согласно правилграмматики, а затем... Фарфуркис: Какой такой грамматики? Машина: А нашей русской грмтк."

Ага.

Было бы забавно, если бы школьник прицепил к решению анализатор текста со словарём.

Хотя даже это не будет формально верным решением, т. к. без понимания текста невозможно точно его исправить.

Как мне это нравится! Паскаль - рассказ Леонида Пантелеева - Стругацкие! Всем браво!

// 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('ты','я').Printlnend.ПримерВведите фразу: Тыков ест тыблокоЯков ест яблоко// 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.ПримерВведите строку: мама, мама, что я буду делать, мама, мама, как я буду жить?Что найти? мамаЧем заменить? папапапа, папа, что я буду делать, папа, папа, как я буду жить?