Question

ABCPascal
В данном тексте замените все последовательности повторяющихся символов на один символ и их количество, заключенное в скобки.

Answer 1

Ответ:

program ReplaceRepeatedChars;

var

 input_string: string;  // вхідний рядок

 result_string: string; // результуючий рядок

 current_char: char;    // поточний символ

 count: integer;        // кількість поточного символу

 i: integer;            // індекс символу у вхідному рядку

begin

 // Введення вхідного рядку

 writeln('Введіть вхідний рядок:');

 readln(input_string);

 // Ініціалізація результуючого рядку та поточного символу

 result_string := '';

 current_char := #0;

 // Обробка кожного символу у вхідному рядку

 for i := 1 to length(input_string) do

 begin

   // Якщо символ співпадає з поточним символом, то інкрементувати count

   if input_string[i] = current_char then

     inc(count)

   // Якщо символ не співпадає з поточним символом, то додати його у результуючий рядок та ініціалізувати count

   else

   begin

     result_string := result_string + count.ToString + current_char;

     current_char := input_string[i];

     count := 1;

   end;

 end;

 // Додати останній символ у результуючий рядок

 result_string := result_string + count.ToString + current_char;

 // Виведення результуючого рядку

 writeln('Результуючий рядок:');

 writeln(result_string);

end.