Решаем задачи Абрамян на Паскале. Integer 5

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

Решение:

program Integer5;
var
  A, B, Res: Integer;
begin
  Write('Введите длину отрезка A: ');
  Readln(A);
  Write('Введите длину отрезка B: ');
  Readln(B);
  Res:=A mod B;
  Writeln('На отрезке A не занято: ',Res);
end.

program Integer5;

var

A, B, Res: Integer;

begin

Write('Введите длину отрезка A: ');

Readln(A);

Write('Введите длину отрезка B: ');

Readln(B);

Res:=A mod B;

Writeln('На отрезке A не занято: ',Res);

end.

Другие задачи из раздела Integer можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Integer 5

Комментарии:

Добавить комментарий Отменить ответ