Question

Введите два числа (например A=45 и В=8) и найдите их частное от деления нацело(в переменной А), используя только операцию вычитания.​

Answer 1

Код программы:

var A, B, sum:integer;

begin

 writeln('Введите A');

 readln(A);

 writeln('Введите B');

 readln(B);

 sum := 0 ;

 while A >= B do  begin

   A := A - B;

   sum:= sum + 1;

 end;

 writeln('Частное = ', sum);

end.

Answer 2

Давайте рассмотрим пример с числами A = 45 и B = 8, и найдем их частное от деления нацело, используя только операцию вычитания.

1. Начнем с числа A (45) и будем вычитать из него число B (8), пока число A больше или равно числу B.

2. Вычитаем число B из числа A: 45 - 8 = 37. После этого число A становится 37.

3. Продолжаем вычитать число B из числа A до тех пор, пока A >= B.

4. Вычитаем число B из числа A еще раз: 37 - 8 = 29. Число A теперь равно 29.

5. Продолжаем вычитать число B из числа A.

6. Вычитаем число B из числа A снова: 29 - 8 = 21. Число A становится 21.

7. Продолжаем вычитать число B из числа A.

8. Вычитаем число B из числа A снова: 21 - 8 = 13. Число A становится 13.

9. Продолжаем вычитать число B из числа A.

10. Вычитаем число B из числа A снова: 13 - 8 = 5. Число A становится 5.

11. Продолжаем вычитать число B из числа A.

12. Вычитаем число B из числа A снова: 5 - 8 = -3. Так как число A стало меньше числа B, операция завершается.

Таким образом, частное от деления числа 45 на 8 равно 5.