В каждом шкафу 9 полок, на каждой полке по 4 книги. Напишите программу, определяющую, в каком по номеру шкафу и на какой полке находится n-я книга. паскаль

Если шкафы и полки нумеровать с 1, то можно так:

var n, a, b:integer;

begin

write ('n = ') ;

readln (n) ;

a: = (n-1) div (9*4) + 1;

b: = (n - (a-1) * 9*4-1) div 4+1;

writeln ('Шкаф = ', a,' полка = ', b) ;

end.

Пример:

n = 57

Шкаф = 2 полка = 6