Нужно написать программу на языке Паскаль.

Question

Информатика: Нужно написать программу на языке Паскаль.

RaspberryYogurt · Accepted Answer

Написал на том, что было под рукой: 1C

Если Квартира > ЭтажейВДоме * КвартирНаЭтаже Тогда

Сообщить("Нет такой квартиры в доме, мало этажей!");

ИначеЕсли Квартира <= КвартирНаЭтаже Тогда

Сообщить("Живет на первом этаже");

Иначе

ЖиветНа = Цел(Квартира / КвартирНаЭтаже);

ОстатокЭт = Квартира%КвартирНаЭтаже;

Если ОстатокЭт>0 Тогда //

ЖиветНа = ЖиветНа+1;

КонецЕсли;

Если ЖиветНа%2=0 И ЖиветНа=ЭтажейВДоме Тогда // это четный и последний

ВыходитьНа = ЖиветНа-1;

ИначеЕсли ЖиветНа%2=0 Тогда // четный в НЕчетный этаж

ВыходитьНа = ЖиветНа+1;

Иначе

ВыходитьНа = ЖиветНа;

КонецЕсли;

Сообщить(" Выйдет на: "+ВыходитьНа);

КонецЕсли;