Напишите программу, которая вводит два целых числа и находит их произведение, не ис пользуя операцию умножения. Учтите, что числа могут быть отрицательными. ( Паскаль)
Напишите программу, которая вводит два целых числа и находит их произведение, не ис пользуя операцию умножения. Учтите, что числа могут быть отрицательными. ( Паскаль)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program MultiplyWithoutMult;
var
a, b, product, i: integer;
begin
writeln('Введите два целых числа:');
readln(a, b);
product := 0;
for i := 1 to abs(b) do
begin
product := product + abs(a);
end;
if (a < 0) and (b < 0) then
writeln('Произведение чисел ', a, ' и ', b, ' равно ', product)
else if (a < 0) or (b < 0) then
writeln('Произведение чисел ', a, ' и ', b, ' равно ', -product)
else
writeln('Произведение чисел ', a, ' и ', b, ' равно ', product);
end.