Даны положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Не используя операции умножения и деления, найти количество остаточного отрезка B, размещенных на отрезке A
While1°. Даны положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Не используя операции умножения и деления, найти длину незанятой части отрезка A. Умножение — это некоторое количество сложений. Program while_1; var A, B: integer; begin readln(A, B); while (A - B) >= 0 do A := A - B; // пока А - В > 0, отнимаем В. write(A); end.