Question

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

Answer 1

Vara,b,z,x:integer;
begin 
writeln('Введите первое число'); 
readln(a);
 writeln('Введите второе число');
 readln(b);
 writeln('Введите третье число равное первому');
 readln(z);
 a:=1;
 while a<=z do
 begin 
x:=x+b;
 a:=a+1;
 end;
 writeln('произведение равно = ',x)
 end.

Answer 2

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

program MultiplicationWithoutMultiplicationOperator;

var
  num1, num2, product, i: Integer;

begin
  // Вводим два натуральных числа
  Write('Введите первое число: ');
  ReadLn(num1);

Write('Введите второе число: ');
  ReadLn(num2);

// Инициализируем переменную product нулем
  product := 0;

// Выполняем цикл num2 раз, прибавляя к product значение num1
  for i := 1 to num2 do
  begin
    product := product + num1;
  end;

// Выводим результат
  WriteLn('Произведение ', num1, ' и ', num2, ' равно ', product);
end.

Программа использует цикл для сложения числа `num1` с самим собой `num2` раз, чтобы получить результат произведения. Обратите внимание, что эта программа предназначена только для натуральных чисел и может не дать корректный результат при использовании отрицательных чисел или дробей.

Также стоит отметить, что данная реализация не является оптимальной с точки зрения производительности и может быть неэффективной для больших чисел.