Найти произведение всех целых чисел от a до 20 (значение a вводится с клавиатуры: 1 < =a < = 20 на паскале

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadInteger('a=');
  Writeln(1.To(a).Aggregate(int64(1),(p,q)->p*q))
end.

Пример
a= 20
2432902008176640000

#include <iostream>

#include <set>

 

typedef long long ll;

 

int main()

{

   std::multiset<ll> st;

 

   {

       int n;

       ll population;

       std::cin >> n;

       for(int i = 0; i < n; ++i)

       {

           std::cin >> population;

           st.insert(population);

       }

   }

 

   ll result = 0;

   while(st.size() > 1)

   {

       ll a = *st.begin();

       ll b = *(++st.begin());

       st.erase(st.begin());

       st.erase(st.begin());

 

       a += b;

       result += a;

       st.insert(a);

   }

 

   std::cout << result;

 

   return 0;

}

Объяснение:

Решил не я!

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₁₀