Решить задачу в паскале! Новые учебники для трех курсов, по a штук для каждого курса. Все книги одинаковы по размеру. В книжном шкафу b полок, на каждой вмещается c учебников. Сколько шкафов можно полностью заполнить учебниками??

Предыдущий
вопрос Следующий
вопрос

program Bookshelves;

va
a, b, c, courses, totalBooks, totalShelves: Integer;

begi
write('Enter the number of books for each course: ')
readln(a);

write('Enter the number of shelves in the bookcase: ')
readln(b);

write('Enter the number of books that can fit on each shelf: ')
readln(c);

write('Enter the number of courses: ')
readln(courses);

totalBooks := a * courses
totalShelves := totalBooks div c;

writeln('The number of bookshelves that can be completely filled with books is: ', totalShelves)
end.