Последовательность хэмминга образует натуральные числа, не имеющие других простых делителей, кроме 2, 3, 5. найти: первы n элементов этой последовательности.сумму первых n элементов . n-ий элемент по заданному номеру n надо решить через цикл на паскале.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
function IsHamming(n:integer):boolean;
begin
  while n mod 2 = 0 do n:=n div 2;
  while n mod 3 = 0 do n:=n div 3;
  while n mod 5 = 0 do n:=n div 5;
  Result:=(n=1)
end;

begin
  var n:=ReadInteger('n=');
  var s:int64:=0;
  var k:=0;
  var i:=2;
  while k<>n do begin
    if IsHamming(i) then begin
      Inc(k); s+=i; Print(i)
      end;
    Inc(i)
  end;
  Writeln(NewLine,'Сумма элементов последовательности равна ',s);
  n:=ReadInteger('Найти элемент с номером');
  i:=2; k:=0;
  while k<>n do begin
    if IsHamming(i) then Inc(k);
    Inc(i)
  end;
  Writeln('Найденное значение: ',i-1)
end.

Тестовое решение:
n= 33
2 3 4 5 6 8 9 10 12 15 16 18 20 24 25 27 30 32 36 40 45 48 50 54 60 64 72 75 80 81 90 96 100
Сумма элементов последовательности равна 1257
Найти элемент с номером 1000
Найденное значение: 51840000

Насколько я понял ваше условие, вот код (немножко на скорую руку, но рабочий!):

#include <cstdio>
#include <iostream>
using namespace std;
int main(){
int n, kolvo=0;//заводим переменную n и переменную kolvo, отвечающую за количество купюр
cout << "Enter n:\n"; cin >> n;//сканируем эту переменную
if (n > 64){
kolvo += n / 64;
n %= 64;
}
if (n > 32){
kolvo += n / 32;
n %= 32;
}
if (n > 16){
kolvo += n / 16;
n %= 16;
}
if (n > 8){
kolvo += n / 8;
n %= 8;
}
if(n > 4){
kolvo += n / 4;
n %= 4;
}
if (n > 2){
kolvo += 1;
n %= 2;
}
if (n == 1){
kolvo += 1;
}
cout <<"There's the number:\n"<< kolvo;
return 0;
}

P.S.:думаю понятно, почему последние два if' а отличаются, но если остались вопросы, то пишите!

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.