Прошу не бить
бошка просто сегодня не о том наверно думает:
код отладил всё исправил... незнаю... обошелся без Raund'a
теперь то уж точно работает
проверил через цикл от 1 до последнего этажа:
Код:
var
nujnaya_kvartira:integer;
etajey_v_dome:integer;
nujnuy_etaj:integer;
begin
etajey_v_dome:=23;
nujnaya_kvartira:=6;
nujnuy_etaj:=nujnaya_kvartira div 3;
if nujnaya_kvartira mod 3<>0 then
nujnuy_etaj:=nujnuy_etaj+1;
if nujnuy_etaj mod 2=0 then
ShowMessage('Нужно выйти на '+inttostr((nujnuy_etaj)-1)+' этаже')
else
ShowMessage('Нужно выйти на '+inttostr(nujnuy_etaj)+' этаже');
end;