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

1
блин мне кто нибудь поможет
аааа???
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.

Ответы и объяснения

2013-11-08T09:53:31+00:00
Program Zadacha;
Const k = 3;
Var n, e, rd, rm: Integer;
Begin
Write('n = ');
ReadLn(n);
WriteLn('Какой номер квартиры нужен человеку?');
ReadLn(e);
rd := e Div 3;
rm := e Mod 3;
If rm > 0 Then
rd := rd + 1;
If rd > n Then
WriteLn('Такой квартиры не существует')
Else
Begin
If rd Mod 2 = 0 Then
If (rd + 1) < n Then
rd := rd + 1
Elser
d := rd - 1;
WriteLn('Лифт довезёт человека на ', rd, ' поверх');
End;
ReadLn;
End.
ой это очень заумно я только в 6 классе
но всёрано спс
Но это полностью соответствует условию :)