Question

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

Answer 1

Var a,c:integer;
begin
writeln('введите номер квартиры');
readln(a);

if ( (a mod 3) <> 0) then c:=(a div 3)+1;
if ( (a mod 3) = 0) then c:=(a div 3);

if (c mod 2 <> 0) then c:=c+1;
writeln('этаж на который привезёт человека ',c);
end.