Напишите программу на языке Паскаль, которая позволит определить количество операций умножения в данном арифметическом

Содержание вопроса: Определение количества операций умножения в арифметическом выражении

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

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

pascal

program CountMultiplications;



var

  expression: string;

  multiplicationCount, i: integer;



begin

  multiplicationCount := 0;



  // Ввод арифметического выражения

  write("Введите арифметическое выражение: ");

  readln(expression);



  // Подсчет операций умножения

  for i := 1 to Length(expression) do

  begin

    if expression[i] = "*" then

      multiplicationCount := multiplicationCount + 1;

  end;



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

  writeln("Количество операций умножения: ", multiplicationCount);

end.

Демонстрация:

Введите арифметическое выражение: 2*X1 + 3*X2 / (X2 + 3*X1) / (X2 + 25*X1)

Количество операций умножения: 2

Совет: При написании программы, не забудьте учесть все возможные символы операций умножения, которые могут присутствовать в выражении. Также обратите внимание на логическую структуру программы - использование цикла for и условного оператора if.

Ещё задача: Напишите программу на языке Паскаль, которая будет определять количество операций сложения в данном арифметическом выражении.