Сделат на языке паскаль
В университетскую библиотеку привезли новые учебники по геометрии для k курсов, по N штук для каждого курса. Все книги одинаковы по размеру. В книжном шкафу P полок, на каждой полке помещается T учебников. Сколько шкафов X можно полностью заполнить новыми учебниками?
Ответ
0
Общее количество учебников равно 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.
В шкаф помещается 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.