Question

Напишите программу, которая вводит два целых числа и находит их произведение, не используя операцию умножения. Учтите, что числа могут быть отрицательными. Входные данные-(Входная строка содержит два целых числа.) Выходные данные-(Программа должна вывести произведение введённых чисел.) Примеры входные данные-(6,12) выходные данные-(72) РЕШИТЬ В ПАСКАЛЬ АБЦ

Answer 1

Var
a,b,x,y,z:integer;
 begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
z:=b;
if b<0 then z:=-b;
for y:=1 to z do  begin
  x:=x+a;
  end;
if b<0 then x:=-x;
writeln('Произведение чисел = ',x);
end.

Проверка по входным данным на фото

Answer 2

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

pascalCopy code
program MultiplyWithoutMultiplication;
var
  a, b, product: integer;
begin
  writeln('Введите два целых числа:');
  readln(a, b);

  product := 0;

  if (a < 0) and (b < 0) then
    begin
      a := abs(a);
      b := abs(b);
    end
  else if b < 0 then
    begin
      product := -a;
      b := abs(b);
    end
  else if a < 0 then
    begin
      product := -b;
      a := abs(a);
    end;

  while b > 0 do
    begin
      product := product + a;
      b := b - 1;
    end;

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

Пользователь будет приглашен ввести два целых числа, а затем программа будет находить их произведение, не используя операцию умножения. Она будет использовать цикл while для повторения сложения числа "a" столько раз, сколько равно число "b". Если оба числа отрицательные, они сначала преобразуются в положительные, чтобы правильно выполнить вычисления. Если одно из чисел отрицательное, результат будет отрицательным.