Даны натуральные числа а, b. Вычислить произведение - вопрос №680939 от marmakmp 12.01.2021 10:22

Question

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

marmakmp · Answer

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.