Question

Напишите программу, которая получает два целых числа и находит их произведение, не используя операцию умножения. Учтите, что числа могут быть отрицательными. Пример: Введите два числа: 10 -15 10*(-15)=-150 Это цикл с условием ( while)ПАСКАЛЬ Помогите пожалуйста Заранее спасибо

Answer 1

javascript:var a = parseInt(prompt()), b = parseInt(prompt()), c = 0, сч = 0; while (сч < Math.abs(b)) { c += a; сч++; } if (b < 0) c = -c; alert(c);

А вот и Pascal. Надеюсь, не ошибся.

program pr;

var a, b, c, cnt: integer;

begin

 a := readln();

 b := readln();

 c := 0;

 cnt = 0;

 while (c < abs(b)) begin

   c := c + a;

   cnt := cnt + 1;

 end;

 writeln(c);

end.

   

Answer 2

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

pascalCopy code
program УмножениеБезУмножения;

var
  число1, число2, произведение: integer;

begin
  writeln('Введите два числа:');
  readln(число1, число2);

  произведение := 0;

  if число2 < 0 then
  begin
    число1 := -число1;
    число2 := -число2;
  end;

  while число2 > 0 do
  begin
    произведение := произведение + число1;
    число2 := число2 - 1;
  end;

  writeln('Произведение: ', произведение);
end.

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

После выполнения цикла программа выводит результат произведения на экран.

Обратите внимание, что ввод и вывод данных осуществляются с использованием процедур readln и writeln соответственно.