Напишите программу, которая вводит два целых числа и находит их произведение, не ис пользуя операцию умножения. Учтите, что числа могут быть отрицательными. ( Паскаль)
Напишите программу, которая вводит два целых числа и находит их произведение, не ис пользуя операцию умножения. Учтите, что числа могут быть отрицательными. ( Паскаль)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program FindMultiplication;
var
a, b, result: integer;
begin
write('Enter first integer: ');
readln(a);
write('Enter second integer: ');
readln(b);
result := 0;
if (a < 0) and (b < 0) then
begin
a := -a;
b := -b;
end
else if b < 0 then
begin
a := a + b;
b := a - b;
a := a - b;
end;
while b <> 0 do
begin
result := result + a;
b := b - 1;
end;
writeln('The multiplication of ', a, ' and ', b, ' is: ', result);
end.