Question

Составьте программу, которая вставляет после буквы "я" слог "мал".(Паскаль)30 баллов

Answer 1

===== PascalABC.NET =====

begin

 var s := ReadlnString;

 s := s.Replace('я', 'ямал');

 Println(s)

end.

Answer 2

Привет! Вот пример программы на языке Pascal, которая вставляет после каждой буквы "я" слог "мал":

pascalCopy code
program InsertSyllable;
uses crt;

var
  inputString, outputString: string;
  i: integer;

begin
  // Чтение строки с клавиатуры
  Write('Введите строку: ');
  Readln(inputString);

  // Инициализация выходной строки
  outputString := '';

  // Обработка каждого символа входной строки
  for i := 1 to Length(inputString) do
  begin
    // Добавление текущего символа к выходной строке
    outputString := outputString + inputString[i];

    // Проверка, является ли текущий символ буквой "я"
    if inputString[i] = 'я' then
    begin
      // Вставка слога "мал" после буквы "я"
      outputString := outputString + 'мал';
    end;
  end;

  // Вывод результирующей строки
  Writeln('Результирующая строка: ', outputString);

  Readln;
end.

Программа считывает строку с клавиатуры, затем проходится по каждому символу входной строки и проверяет, является ли текущий символ буквой "я". Если это так, программа вставляет слог "мал" после этой буквы. Результат выводится на экран.

Обратите внимание, что данная программа использует стандартный ввод и вывод, поэтому для ее работы необходимо использовать среду разработки, поддерживающую язык Pascal, например, Free Pascal или Turbo Pascal.