<span>Вычислительные таблицы:
1 Программа Excel высчитывать данные в таблице
2 Базы данных, Eccess, 1C, и тд</span>
Псевдокод:
N - номер квартиры
iTop = N div 4;
if(N mod 4 > 0) iTop++;
Npd = (iTop-1) div 9 + 1; // Подъезд
Net = (iTop-1) mod 9 + 1; // Этаж
var n,n1,i: integer;
<span>begin
</span><span> write('N = '); readln(n);
</span><span> if n mod 2=0 then i:=2
</span><span> else i:=1;
</span><span> n1:=1;
</span><span> repeat
</span><span> n1:=n1*i;
</span><span> i:=i+2;
</span><span> until i>n;
</span><span> writeln('N1 = ',n1);
</span><span>end.
</span>N = 6N1 = 48
N = 5N1 = 15
<span>
</span>