Определить номер подъезда 9-этажного дома по указанному номеру квартиры N. считать на каждом этаже находится по M квартир (Паскаль)​

var

   m, n: integer;

begin

   Write('Введите количество квартир в подъезде: ');

   Readln(m);

   Write('Введите номер квартиры: ');

   Readln(n);

   Writeln('Квартира находится в ' + (Round(n / m) + 1) + ' подъезде.');

end.

Объяснение:

Round - округление до ближайшего целого.