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

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

Задать свой вопрос
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 переменные целого типа, предполагается, что происходит автоматическое округление при делении в наименьшую сторону
Порфун Карина
как это будет смотреться в паскале
Александра Айдарханова
добавил в ответ паскаль
Антонина Куцуруба
при любом вводе числа ответ выходит 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.
Milena
ошибка в readln
Регина
квартира в переменной a
Лилия Пукас
и сделайте проверку: номер квартиры больше 0
Костик Ливадо
жму руку,спасибо огромное
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт