[cash]

В небоскребе N этажей и всего один подъезд; на каждом этаже по 3 квартиры; лифт может останавливаться только на нечетных этажах. Человек садится в лифт и набирает номер нужной ему квартиры М. На какой этаж должен доставить лифт пассажира?

[eXplorer]

накалякал что то:

Код:

var
nujnaya_kvartira:integer;
etajey_v_dome:integer;
nujnuy_etaj:integer;
begin
etajey_v_dome:=23;
nujnaya_kvartira:=14;
nujnuy_etaj:=nujnaya_kvartira div 3;
if nujnuy_etaj mod 2<>0 then
ShowMessage('Нужно выйти на '+inttostr(nujnuy_etaj)+' этаже')
else
ShowMessage('Нужно выйти на '+inttostr(nujnuy_etaj-1)+' этаже');
end;

[Pilot_Red]

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

накалякал что то:

Код:

var
nujnaya_kvartira:integer;
etajey_v_dome:integer;
nujnuy_etaj:integer;
begin
etajey_v_dome:=23;
nujnaya_kvartira:=14;
nujnuy_etaj:=nujnaya_kvartira div 3;
if nujnuy_etaj mod 2<>0 then
ShowMessage('Нужно выйти на '+inttostr(nujnuy_etaj)+' этаже')
else
ShowMessage('Нужно выйти на '+inttostr(nujnuy_etaj-1)+' этаже');
end;

eXplorer а если мне нужна 5-я квартира то по твоим нехитрым расчетам у меня покажет 1 этаж, хотя должен быть второй. Тут все таки надо скорей всего Round-ом пользоваться

[eXplorer]

так в условии задачи... лифт на четных не останавливается?
если нужна пятая квартира как говорится дуй пешком)

[Pilot_Red]

а если 6-я)))))))))))

[eXplorer]

дак а разница какая 6-ая или 5-ая (этаж то один... и топать что с третего что с первого одинаково)
да и в условии задачи об этом не было сказано
и теоритически мне кажется проще и быстрее пешком подняться на второй этаж, чем доехать на лифте до третьего и спуститься на второй

[Row]

Код:

var e,m:integer;

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

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

[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