Question

Написать программу которая вводит строку. Подсчитать количество гласных русских букв в строке и заменить их на знак *(Паскаль)

Answer 1

Ответ:

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

begin

 var s := ReadString();

 var pattern := '[aieuo]|[ауоыиэяюёе]';

 s.Matches(pattern).Count.Println;

 s.RegexReplace(pattern, '*').Println;

end.

Программа работает как с русским языком, так и с английским.

Answer 2

Конечно, вот пример программы на языке Паскаль, которая выполняет описанные вами действия:

pascalCopy code
program CountAndReplaceVowels;
var
  inputString: string;
  vowelCount, i: integer;
  vowels: set of char;

begin
  // Задаем множество гласных букв
  vowels := ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я',
             'А', 'Е', 'Ё', 'И', 'О', 'У', 'Ы', 'Э', 'Ю', 'Я'];

  // Ввод строки от пользователя
  writeln('Введите строку:');
  readln(inputString);

  // Подсчет гласных букв и замена на знак '*'
  vowelCount := 0;
  for i := 1 to length(inputString) do
  begin
    if inputString[i] in vowels then
    begin
      inc(vowelCount);
      inputString[i] := '*';
    end;
  end;

  // Вывод результата
  writeln('Количество гласных букв: ', vowelCount);
  writeln('Строка после замены: ', inputString);
end.

Скопируйте этот код в среду разработки для Паскаля (например, Free Pascal) и запустите программу. Она запросит вас ввести строку, а затем выведет количество гласных букв и строку после замены.