У п’ятиповерховому жилому будинку на кожному поверсі по чотири квартири. Скласти програму для визначення поверху в залежності від
номера квартири.

Program P1;

var z,x,y,p,e:integer;

begin

 write('Кількість поверхів = '); readln(x);

 write('Кількість квартир на сходовій площадці = ');

 readln(y);

 write('Номер квартири = '); readln(z);

 p:=(z-1) div (x*y)+1;

 e:=((z-(p-1)*x*y)-1) div y +1;

 writeln('Квартира ',z,'  знаходиться в ',p,' під'їзді на ',e,' поверсі');

end.

Кількість поверхів = 5

Кількість квартир на сходовій площадці = 4

Объяснение: