Напишите программу, которая выводит все простые числа в диапазоне от k до n ( 2 ≤ k ≤ n ≤ 100000 pascal

Var
 k,n,x,d: integer;

begin
 read(k,n);
 for x := k to n do
  if x mod 10 = 3 then
    begin
    d := 2;
    while x mod d <> 0 do d := d + 1;
    if x = d then write(x,' ');
    end;
end.

Если три нуля значащие, значит число начинается с единицы. Поскольку любое число в развернутой записи есть сумма произведений, каждое из которых представляет собой произведение цифры, находящейся на n-й позиции на основание системы счисления, возведенной в степень n-1, то понятно, что чем больше по величине будут цифры в старших разрядах, тем больше будет само число.
В применении к двоичной системе это означает, что слева должны стоять все единицы, а справа - нули.
Получаем 11000(2)=1х2^4+1x2^3=16+8+=24(10) - тут символ ^ означает возведение в степень.
ответ: 24

1₂ = 1₁₀

10₂ =2₁₀

11₂ = 3₁₀

100₂ = 4₁₀

101₂ = 5₁₀

110₂ = 6₁₀

111₂ = 7₁₀

1000₂ = 8₁₀

1001₂ = 9₁₀

1010₂ = 10₁₀

1011₂ = 11₁₀

1100₂ = 12₁₀

1101₂ = 13₁₀

1110₂ = 14₁₀

1111₂ = 15₁₀

это таблица для перевода координат точек в 10-ную систему

Объяснение:

1₂ = 1*2⁰ = 1₁₀

10₂ = 0*2⁰ + 1*2¹ = 2₁₀

11₂ = 1*2⁰ + 1*2¹ = 3₁₀

100₂ = 0*2⁰ + 0*2¹ + 1*2² = 4₁₀

101₂ = 1*2⁰ + 0*2¹ + 1*2² = 5₁₀

110₂ = 0*2⁰ + 1*2¹ + 1*2² = 6₁₀

111₂ = 1*2⁰ + 1*2¹ + 1*2² = 7₁₀

1000₂ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ = 8₁₀

1001₂ = 1*2⁰ + 0*2¹ + 0*2² + 1*2³ = 9₁₀

1010₂ = 0*2⁰ + 1*2¹ + 0*2² + 1*2³ = 10₁₀

1011₂ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ = 11₁₀

1100₂ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ = 12₁₀

1101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ = 13₁₀

1110₂ = 0*2⁰ + 1*2¹ + 1*2² + 1*2³ = 14₁₀

1111₂ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ = 15₁₀