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

Георги
Oct 24, 2020
Код ниже
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.
254