Question

Дана последовательность символов, оканчивающаяся точкой. Подсчитать количество групп символов +-. (Pascal abc (тип данных символьные )).

Answer 1

Var C,C1:char;
    k:integer;
Begin
k:=0;
Repeat
C1:=C;
Read(C);
if (C1 = '+')and(C = '-') then k:=k+1
Until C = '.';
Write(k)
End.




516r5t146bsrg+-+-654sr6fgh541f+-65s4fg.
3

Answer 2

Для того чтобы подсчитать количество групп символов +- в данной последовательности, нужно использовать цикл, который будет перебирать каждый символ в последовательности и проверять, является ли он символом + или -.

Программа на языке Pascal может выглядеть следующим образом:

program CountSymbolGroups;
var
  sequence: string;
  countGroups: integer;
  i: integer;
begin
  countGroups := 0; // переменная для хранения количества групп
  sequence := ''; // строка для хранения последовательности символов
  
  // считываем последовательность символов
  writeln('Введите последовательность символов:');
  readln(sequence);
  
  // проходим по каждому символу в последовательности
  for i := 1 to Length(sequence) do
  begin
    // проверяем, является ли текущий символ + или -
    if (sequence[i] = '+') or (sequence[i] = '-') then
    begin
      // если предыдущий символ также + или -, то это продолжение группы, не увеличиваем счетчик
      if (i > 1) and ((sequence[i-1] = '+') or (sequence[i-1] = '-')) then
        continue;
      
      // иначе, это новая группа символов, увеличиваем счетчик
      countGroups := countGroups + 1;
    end;
  end;
  
  // выводим результат
  writeln('Количество групп символов +-: ', countGroups);
end.

При запуске программы она запросит ввести последовательность символов. После ввода последовательности программа подсчитает количество групп символов +- и выведет его на экран.

Например, если ввести последовательность символов "+-+-+-", программа покажет результат: "Количество групп символов +-: 4".