PASCAL!!!!!!!!! Написать программу, выводящую номер этажа, где расположена квартира, если...

Question

PASCAL!!!!!!!!! Написать программу, выводящую номер этажа, где расположена квартира, если известно, что в этажном доме один подъезд, на четных этажах по 7 квартир, на нечетных – 5, при этом на первом этаже квартир нет. При входе в дом вводится номер квартиры. В случае ошибочного ввода номера квартиры, программа должна сообщать об этом.

Answer 1

A - номер квартиры, начиная с 1
n - этаж

C:
n = 2*((a-1)/12)+2+((а-1)%12)/7

Pascal:
n := 2*((a-1) div 12)+2+((a-1) mod 12) div 7

выражение в одну строку
% это остаток от деления
a и n переменные целого типа, подразумевается, что происходит автоматическое округление при делении в меньшую сторону

Comments

как это будет выглядеть в паскале

---

добавил в ответ паскаль

---

при любом вводе числа ответ получается 2

---

формула работает корректно, но я проверил на С, можно получить фотку кода на паскале?

---

Program two;var a,n:integer;beginwriteln('Введите номер квартиры ',a);readln(n);n := 2*((a-1) div 12)+2+((a-1) mod 12) div 7;writeln('этаж ' , n)end.

---

ошибка в readln

---

квартира в переменной a

---

и сделайте проверку: номер квартиры больше 0

---

жму руку,спасибо огромное