ПОМОГИТЕ ПОЖАЛУЙСТА ПО ИНФОРМАТИКЕ!ОЧЕНЬ СРОЧНО!Даны положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Не используя операции умножения и деления, найти длину незанятой части отрезка A.

Вопрос школьника по предмету Информатика

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

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

Ответ учителя по предмету Информатика

Ответ:

Код ниже

Объяснение:

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.