Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.