Question

Напишите программу, которая вводит два целых числа и находит их произведение, не ис пользуя операцию умножения. Учтите, что числа могут быть отрицательными. ( Паскаль)

Answer 1

Var a, b, i, p: integer;
begin
  writeln('Введите два целых числа');
  readln(a, b);
  p := 0;
  for i := 1 to abs(b) do
  p := p + abs(a); 
  writeln('Произведение = ', p);
end.

Answer 2

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

program MultiplicationWithoutMultiplicationOperator;
var
  a, b, product: integer;
begin
  writeln('Введите первое число: ');
  readln(a);
  writeln('Введите второе число: ');
  readln(b);

if (a = 0) or (b = 0) then
    product := 0
  else if (a > 0) and (b > 0) then
  begin
    product := 0;
    for var i := 1 to b do
      product := product + a;
  end
  else if (a < 0) and (b < 0) then
  begin
    product := 0;
    for var i := 1 to abs(b) do
      product := product + abs(a);
  end
  else if (a < 0) and (b > 0) then
  begin
    product := 0;
    for var i := 1 to b do
      product := product + a;
  end
  else if (a > 0) and (b < 0) then
  begin
    product := 0;
    for var i := 1 to a do
      product := product + b;
  end;

writeln('Произведение чисел: ', product);
end.

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