Последовательность хэмминга образует натуральные числа, не имеющие других простых делителей, кроме 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

375 киболайт = 375 * 1024 * 8 = 3072000 бит

3072000 : 128000 = 24 с

ответ. понадобится 24 с.