напишите программу для паскаль абц нет. удалить каждую пару символов "pq" и подсчитать общее количество символов '.' и ',' в строке через способом алгоритма обработки литерных велечин пж

Ответ:

program RemovePQAndCount;

var

inputString, outputString: string;

dotCount, commaCount, i: integer;

begin

// Ввод строки

writeln('Введите строку:');

readln(inputString);

// Инициализация счетчиков

dotCount := 0;

commaCount := 0;

// Обработка строки

i := 1;

while i <= length(inputString) do

begin

// Удаление пары символов "pq"

if (i < length(inputString)) and (inputString[i] = 'p') and (inputString[i+1] = 'q') then

i := i + 2

else

begin

// Подсчет символов '.' и ','

if inputString[i] = '.' then

Inc(dotCount)

else if inputString[i] = ',' then

Inc(commaCount);

// Добавление символа к выходной строке

outputString := outputString + inputString[i];

Inc(i);

end;

end;

// Вывод результата

writeln('Результат:');

writeln('Общее количество символов "." и ",": ', dotCount + commaCount);

writeln('Измененная строка:', outputString);

end.

Этот код считывает строку, удаляет пары "pq" и подсчитывает количество символов '.' и ','. Он использует цикл while для обработки каждого символа в строке.