[eXplorer]

Сообщение от Row

Код:

var e,m:integer;

begin
     writeln('vvedite kvartiry');
     readln(m);
     e:=m div 3;
     if ((e mod 2)=0) then begin e:=e-1;
                           writeln(e); end
                      else writeln(e);
                      readln;
end.

e - номер этажа
м - номер квартиры
получается если квартира на четном этаже, например 8, тогда лифт подвезет тебя на 7 этаж))
ну можно сделать на 9, кому как удобно

сдесь таже ситуация что и у меня была замечена...
13 и 15 квартиры находятся на одном и том же этаже при вводе 13 кв. выходит что надо выйти на 3 этаже. а при вводе 15 кв. на 5