Question

Паскаль. Даны положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Не используя операции умножения и деления, найти длину незанятой части отрезка A.

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

Var
 a,b:integer;
begin
 read(a,b);
 while a-b>=0 do
  a:=a-b;
 writeln(a);
end.

Пример ввода:
16
5
Пример вывода:
1

Answer 2

Для решения этой задачи воспользуемся алгоритмом деления с остатком.

Из условия задачи следует, что на отрезке длины A размещено максимально возможное количество отрезков длины B без наложений. То есть отрезок A можно представить в виде суммы B + B + B + ... + B + C, где C - длина незанятой части отрезка A.

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

Алгоритм решения будет следующим: 1. Инициализируем переменную remainder = A. 2. Пока remainder >= B, вычитаем B из remainder. 3. После выполнения цикла, значение remainder будет равно длине незанятой части отрезка A.

Пример решения задачи: Пусть A = 10, B = 3. 1. remainder = 10. 2. remainder = remainder - B = 7. 3. remainder = remainder - B = 4. 4. remainder = remainder - B = 1.

После выполнения алгоритма получаем, что длина незанятой части отрезка A равна 1.