Даны натуральные числа а, b. Вычислить произведение а*b, используя в программе лишь операции +, -, =, <>. (программа Паскаль)

Question

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

Answer 1

USES Crt;
VAR
   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);
END.