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

Если шкафы и полки нумеровать с 1, то можно так:var n,a,b:integer;beginwrite('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