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.