Написать программу для нахождения произведения двух целых чисел х и у без использования операции умножения. Паскаль
Написать программу для нахождения произведения двух целых чисел х и у без использования операции умножения. Паскаль
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program Multiplication;
var
x, y, product: integer;
begin
writeln('Enter first number: ');
readln(x);
writeln('Enter second number: ');
readln(y);
product := 0;
while y > 0 do
x := x shl 1;begin
if y mod 2 = 1 then
product := product + x;
y := y div 2;
end;
writeln('Product is: ', product);
end.