Если я правильно понял суть задания
var n,m:inreger;
begin
readln(n);
m:=n+1;
writeln(m);
end.
Дано:
I = 450
K = 150
N = ?
Решение:
N=I/K
N=450/150=3 бита