По номеру квартиры получить этаж - Упростить алгоритм

[Алексей_2012]

Здравствуйте, помогите упростить алгоритм, в такой задаче как: в 9 этажном доме 27 квартир, по три на каждом этаже, нужно ввести номер квартиры, апрограммы должна написать какой это этаж) например вводим 5, а программ выводит: второй этаж.

P.S. У меня есть два варианта решения, но я думаю можно и циклом как-нибудь сделать, первое через проверку условий, которых много раз проверять придется, а второе через case. Заранее спасибо)))))

[Granus]

Are you fucking kidding me?

floor = (number + 2) / 3

[Базиля]

Granus
Язык паскаль, не С
Нужно забирать целую часть еще тогда.

var n:integer;
begin
readln(n);
writeln('Этаж № ',trunc((n+2)/3));
end.

[s-andriano]

Зачем двойное преобразование типов?

writeln('Этаж № ',(n+2) div 3));

[Granus]

Язык паскаль, не С

Я надеялся, что остальное ТС в состоянии сделать сам, в том числе перевести это в паскаль.

[Базиля]

s-andriano
Тоже вариант

Granus

Я надеялся, что остальное ТС в состоянии сделать сам, в том числе перевести это в паскаль.

Да это я так, просто к слову
Ведь всякое бывает.

[Алексей_2012]

Возможно смог бы))))) спасибо вам)