Решаем задачи Абрамян на Паскале. 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

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

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