Question

Помогите, Pascal ABC... Дано предложение. Если в этом предложении первая буква встречается более 3 раз, заменить её на восклицательный знак. Исходный текст задать самостоятельно таким образом, чтобы решалась задача.

Answer 1

//PascalABC.NET 3.1 сборка 1239
begin
    var s := ReadlnString('s =');
    var c := s[1];
    
    if s.ToLower().ToCharArray().Count(x -> x = c) >= 3 then begin
        s := s.Replace(LowCase(c), '!');
        s := s.Replace(UpCase(c), '!');
    end;
    
    writeln(s);
end.

Answer 2

Конечно, давайте напишем программу на Pascal ABC, которая выполняет указанную задачу. Предположим, что вам нужно обработать строку. Вот пример программы:

program ReplaceFirstLetter;

var
  sentence: string;

procedure ReplaceFirstLetterExclamation(var str: string);
var
  firstLetter: Char;
  count: Integer;
begin
  // Проверяем, что строка не пуста
  if Length(str) > 0 then
  begin
    // Получаем первую букву
    firstLetter := str[1];
    count := 0;

// Считаем количество вхождений первой буквы в строку
    for var i := 1 to Length(str) do
    begin
      if UpCase(str[i]) = UpCase(firstLetter) then
        Inc(count);
    end;

// Если количество вхождений больше 3, заменяем первую букву на восклицательный знак
    if count > 3 then
      str[1] := '!';
  end;
end;

begin
  // Вводим предложение
  Write('Введите предложение: ');
  ReadLn(sentence);

// Вызываем процедуру замены первой буквы
  ReplaceFirstLetterExclamation(sentence);

// Выводим измененное предложение
  WriteLn('Измененное предложение: ', sentence);

ReadLn;
end.

В этой программе:

1. Вводится предложение с клавиатуры. 2. Процедура `ReplaceFirstLetterExclamation` принимает строку и заменяет первую букву на восклицательный знак, если эта буква встречается более трех раз. 3. Замененное предложение выводится на экран.

Примечание: Программа чувствительна к регистру, то есть 'A' и 'a' считаются разными символами. Если вам нужно сделать программу нечувствительной к регистру, используйте функцию `UpCase` для приведения всех символов к верхнему регистру перед сравнением.