В небоскрёбе n этажей и 1 подъезд,** каждом этаже по 3 квартиры,лифт останавливается...

Question

В небоскрёбе n этажей и 1 подъезд,на каждом этаже по 3 квартиры,лифт останавливается только на не чётных этажах .Человек садится в лифт и нажимает номер нужной ему квартиры.На какой этаж дома довезёт лифт человека.
(в паскале) плиззз помогите срочно надо

Comments

блин мне кто нибудь поможет

---

аааа???

---

var n, flat, floor: Integer;begin Write('n = '); ReadLn(n); WriteLn('Какой номер квартиры нужен человеку?'); ReadLn(flat); floor := (flat - 1) div 3 + 1; if (floor > n) or (flat <= 0) then begin writeln('Не верный номер квартиры'); exit; end; if (floor mod 2 = 0) or (floor = 1) then writeln('Едем на ', floor, ' этаж') else writeln('Едем на ', floor - 1, ' этаж');end.

Answer 1

Const
    flats_per_floor = 3;

var
    n, flat, floor: Integer;

begin
    Write('n = ');
    ReadLn(n);
    WriteLn('Какой номер квартиры нужен человеку?');
    ReadLn(flat);
    
    floor := (flat - 1) div flats_per_floor + 1;
    if (floor > n) or (flat <= 0) then begin<br>        writeln('Неверный номер квартиры');
        exit;
    end;
    
    if (floor mod 2 = 1) then
        writeln('Едем на ', floor, ' этаж')
    else
        writeln('Едем на ', floor - 1, ' этаж');
end.