Даны натуральные числа a,b. вычислите произведение а умножить на б используя в программе лишь операции +; -; =; < > ​

ответ:

  a, b, c, k : integer;

begin

  write(‘ введите два значения ‘);   readln(a,b);  

  k : = 0; c : = 0;

  while k < > b do begin

      k : = k + 1;   c : = c + a;

  end;

  {c = a * k и k = b, следовательно, c = a * b}

  write(‘ a*b= ‘,c);

объяснение: