Question

Сделат на языке паскаль В университетскую библиотеку привезли новые учебники по геометрии для k курсов, по N штук для каждого курса. Все книги одинаковы по размеру. В книжном шкафу P полок, на каждой полке помещается T учебников. Сколько шкафов X можно полностью заполнить новыми учебниками?

Answer 1

Общее количество учебников равно k*N.
В шкаф помещается P*T учебников.
Количество полностью заполненных шкафов Х равно целой части от деления k*N на P*T

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var k:=ReadInteger('Количество курсов:');
  var n:=ReadInteger('Количество учебников для каждого курса:');
  var p:=ReadInteger('Количество полок в шкафу:');
  var t:=ReadInteger('Количество учебников на полке:');
  Writeln('Будет полностью заполнено шкафов: ', (k*n) div (p*t))
end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая решает вашу задачу:

pascalCopy code
program LibraryShelves;

var
  k, N, P, T, X: Integer;

begin
  // Ввод данных
  Write('Введите количество курсов (k): ');
  Readln(k);
  Write('Введите количество учебников для каждого курса (N): ');
  Readln(N);
  Write('Введите количество полок в книжном шкафу (P): ');
  Readln(P);
  Write('Введите количество учебников, помещающихся на одной полке (T): ');
  Readln(T);
  
  // Расчет количества шкафов
  X := (k * N) div (P * T);
  
  // Вывод результата
  Writeln('Максимальное количество шкафов, которые можно полностью заполнить: ', X);
end.

Программа запрашивает у пользователя значения переменных k, N, P и T, а затем вычисляет количество шкафов X, которые можно полностью заполнить учебниками. Результат выводится на экран.

Обратите внимание, что в этой программе предполагается, что значение (k * N) делится на (P * T) без остатка. Если это не выполняется, то программа вернет только количество шкафов, которые можно заполнить полностью, без учета оставшихся учебников.