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

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

Решение:

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

program Integer5;

var

A, B, Res: Integer;

begin

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

Readln(A);

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

Readln(B);

Res:=A div B;

Writeln('В отрезке A содержится ',Res,' полных отрезков B.');

end.

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

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

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

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