Question

ПОМОГИТЕ ПОЖАЛУЙСТА ПО ИНФОРМАТИКЕ!ОЧЕНЬ СРОЧНО!

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

Answer 1

Ответ:

Код ниже

Объяснение:

program calcRest;

var A,B, diff: real;

begin

   writeln('Ведите числа A и B: ');

   readln(A,B);

   diff := A - B;

   while diff > B do begin

       diff := diff - B;

   end;

   writeln(diff);

end.