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

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