Program dividers;
var
c,i,n :Integer;
begin
readln(n);
repeat
if ( (n mod i) = 0 ) and ( (i mod 2) <> 0) then c:= c + 1;
if ( (n / i) mod 2) <> 0 then c:= c + 1;
i:= i + 1;
until i < (sqrt(n) + 1);
writeln(c);
end.
Program chik;
var n,a:integer;
begin
read(n);
a:=n mod 10;
writeln(a);
end.
здесь mod 10 делаем чтобы найти остаток от деления n на 10
при этом мы находим последнюю цифру
а если mod 100 сделать 2 последные цифры
mod 1000 три последные цифры
и т.д
N=2^i
n=2^3
n=8 (подъездов)
n- количество подъездов