Question

Сделать в Pascal ABC ,посчитать сколько раз в данной строке встречается символ

Answer 1

Var
    a: string;
    b: char;
    i, k: integer;

begin
    readln(a);
    readln(b);
    for i := 1 to length(a) do
        if a[i] = b then
            k := k + 1;
    writeln(k);
end.

Answer 2

Для подсчета количества раз, которое символ встречается в данной строке, можно использовать следующий код на Pascal ABC:

program CountSymbolOccurrences;

var
  inputString: string;
  symbol: char;
  count: integer;
  i: integer;

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

writeln('Введите символ:');
  readln(symbol);

count := 0;

for i := 1 to length(inputString) do
  begin
    if inputString[i] = symbol then
      count := count + 1;
  end;

writeln('Символ "', symbol, '" встречается в строке ', count, ' раз(а).');
end.

В этом коде мы сначала запрашиваем у пользователя строку и символ, которые нужно проверить. Затем мы инициализируем переменную `count` нулем и используем цикл `for` для прохода по каждому символу в строке. Если текущий символ равен заданному символу, мы увеличиваем счетчик `count` на единицу. В конце программы выводится количество раз, которое символ встречается в строке.

Например, если введенная строка - "Hello, world!" и символ - "o", программа выведет "Символ "o" встречается в строке 2 раз(а)."

Обратите внимание: Данный код предназначен для выполнения в среде Pascal ABC. Если вы используете другую среду разработки, возможно, потребуется некоторая адаптация кода.

Источник содержит пример кода на Pascal, который может быть полезным при решении данной задачи.