Question

Составить программу для решения задачи: Ввести два числа, найти их произведение, не используя операцию умножения. КуМир

Answer 1

Var a,b,i,j:integer;

Begin

writeln('Введите 2 числа');

Readln(a);

Readln(b);

j:=0;

for i:=1 to b do begin

j=j+a;

end;

writeln('произведение чисел = 'j);

end.

Я только на Паскале знаю так что чем смог помог)

Answer 2

program HelloWorld;

var a, b, i: integer;

begin

   readln(a,b);

   i:=1;

  while i<b do

  begin  

  a:=a+a;

  i:=i+1;

  end;

  write (a);

end.

Answer 3

Для решения данной задачи на языке КуМир без использования операции умножения можно воспользоваться циклом для сложения чисел. Вот пример программы на КуМир:

cssCopy code
начало
    ввод(A);  -- ввод первого числа
    ввод(B);  -- ввод второго числа

    Сумма := 0;  -- инициализация переменной для хранения произведения

    пока B > 0  выполнить
        Сумма := Сумма + A;  -- прибавляем первое число к произведению
        B := B - 1;  -- уменьшаем второе число на единицу
    кон;

    вывод(Сумма);  -- выводим результат

конец

Эта программа использует цикл пока для сложения числа A к себе B раз, что и является операцией произведения чисел. Таким образом, мы эмулируем умножение чисел без использования непосредственно операции умножения.