Напишите программу, которая вводит два целых числа и находит их произведение, не используя операцию умножения. Учтите, что числа могут быть отрицательными. Входные данные: два целых числа. Выходные данные: произведение введённых чисел. Примеры: входные данные (6, 12), выходные данные (72). Решить на Pascal ABC.

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

Пример программы на Pascal ABC:

pascal
Копировать код
program MultiplyWithoutMultiplication;
var
  a, b, i, result: Integer;
begin
  // Вводим два числа
  ReadLn(a, b);
  
  // Инициализируем переменную для хранения результата
  result := 0;
  // Если b отрицательное, меняем знак a и b
  if b < 0 then
  begin
    a := -a;
    b := -b;
  end;
  
  // Добавляем a к result b раз
  for i := 1 to b do
    result := result + a;
  
  // Выводим результат
  WriteLn(result);
end.

Пояснение работы программы:

1. Вводим два целых числа, a и b.

2. Если второе число b отрицательное, меняем знаки чисел, чтобы избежать сложений с отрицательным числом.

3. Используем цикл для сложения числа a к переменной result столько раз, сколько равно абсолютное значение второго числа b.

4. Выводим результат.

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