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

Program Integer5;

var
  a, b, otr: integer;

begin
  repeat
    write('введите A =');
    readln(a);
    write('введите B меньше A=');
    readln(b);
  until (a > b);
  otr := a mod b;
  writeln('количество отрезков B=', otr);

end.

Похожие записи/страницы:

Leave a Comment

87 − = 86