В небоскрёбе n этажей и 1 подъезд,на каждом этаже по 3 квартиры,лифт останавливается только на не чётных этажах .Человек садится в лифт и нажимает номер нужной ему квартиры.На какой этаж дома довезёт лифт человека.(в паскале) п...
В небоскрёбе n этажей и 1 подъезд,на каждом этаже по 3 квартиры,лифт останавливается только на не чётных этажах .Человек садится в лифт и нажимает номер нужной ему квартиры.На какой этаж дома довезёт лифт человека.
(в паскале) плиззз помогите срочно надо
Гость
Ответ(ы) на вопрос:
Гость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
writeln('Неверный номер квартиры');
exit;
end;
if (floor mod 2 = 1) then
writeln('Едем на ', floor, ' этаж')
else
writeln('Едем на ', floor - 1, ' этаж');
end.
Не нашли ответ?
Похожие вопросы