Задание выполняются в QBasic.
Найти значение данной функции на отрезке [a, b] с шагом изменения аргумента dx.
Функция Отрезок [a, b] Шаг изменения аргумента
y=cos3x+5 [5,7] 0,5

GNU GCC.

#include <iostream>
#include <vector>
#include <cstdlib>
using namespace std;

int main()
{
int a, b, n;
cout <<"Введите границы диапазона и размер массива:" <<endl;
cin >>a >>b >>n;
if(n>10000) n=10000;
vector<int> v(n);
srand(time(0));
cout <<"Исходный массив:" <<endl;
for(int i=0; i<v.size(); ++i)
{
v[i] = rand()%(b-a+1) + a;
cout <<v[i] <<" ";
}
cout <<"\n3х-значные элементы, не кратные 5:" <<endl;

for (int i=0; i<v.size(); ++i)
if ((v[i]>99) && (v[i]<1000) && (v[i]%5!=0))
cout <<v[i] <<" ";
cout <<endl;

return 0;
}

// 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