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

Question

Григорий Волков

Информатика

28 июня, 18:42

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

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Александр Климов · Answer 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.