VAR
InputString: STRING[50]; // входная строка
CountA: INT; // количество символов 'A'
Index: INT; // индекс для цикла
END_VAR
// Инициализация переменных
InputString := 'Введите вашу строку здесь'; // пример строки
CountA := 0;
// Подсчёт количества символов 'A'
FOR Index := 1 TO LEN(InputString) DO
IF InputString[Index] = 'A' THEN
CountA := CountA + 1;
ENDIF;
ENDFOR;
вот типо такого кода надо
не могу понять как в программе это написать





