Найти сумму первых N элементов заданной последовательности

@Ajjika · Регистрация: 05.11.2018

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

@Puporev · 07.11.2018, 18:58

Delphi

function IsHemming(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;
IsHemming:=n=1;
end;

@Matan! · 08.11.2018, 09:46

Так, что ли?

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  n, i: Integer;
  sum: Integer;
  HemSeq: array of Integer;
 
begin
  Write('N = ');
  Readln(n);
  sum := 0;
 
  for i := 1 to n do
    if (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0) then
    begin
      Write(i, ' ');
      sum := sum + i;
    end;
  Writeln;
  Writeln('Summ =', sum);
  Readln;
end.

@Puporev · 08.11.2018, 09:50

Сообщение от Matan!

if (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0)

Так не пойдет, 420 тоже делится на 2,3,5, но еще делится на 7, а это не число Хемминга.

@Matan! · 08.11.2018, 10:15

Сообщение от Puporev

Так не пойдет, 420 тоже делится на 2,3,5, но еще делится на 7, а это не число Хемминга

А, понял. Т.е.надо исключить другие простые числа среди делителей. Да, заменил в проверке i на Вашу функцию, увидел, что это за числа.

Сорри, за мой бесполезный пост

@Ajjika · 08.11.2018, 19:44 **[ТС]**

Сообщение от Puporev

while n mod 3=0 do n:=n div 3;
while n mod 5=0 do n:=n div 5;

А как потом вывести сумму первых N элементов этой
последовательности

@Puporev · 08.11.2018, 20:03

Delphi

sum := 0;
 
  for i := 1 to n do
    if IsHemm(i) then
    begin
      Write(i, ' ');
      sum := sum + i;
    end;
  Writeln;
  Writeln('Summ =', sum);

@Ajjika · 08.11.2018, 22:14 **[ТС]**

Можете полный код дать на эту задачу пожалуйста, я в дэлфи нуль, пока не понимаю что с чем

@Ajjika 0 / 0 / 0 Регистрация: 05.11.2018 Сообщений: 17
		1
	Delphi 6-7 Найти сумму первых N элементов заданной последовательности 05.11.2018, 18:27. Показов 2078. Ответов 7 Метки delphi 7 (Все метки) Прогуглил, но там удален мат Помогите пожалуйста написать код на Delphi: Последовательность Хэмминга образуют натуральные числа, не имеющие других простых делителей, кроме 2, 3 и 5. Найти сумму первых N элементов этой последовательности; 0

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	08.11.2018, 09:50	4
	Сообщение от Matan! if (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0) Так не пойдет, 420 тоже делится на 2,3,5, но еще делится на 7, а это не число Хемминга. 0

@Matan! Модератор 1436 / 1013 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	08.11.2018, 10:15	5
	Сообщение от Puporev Так не пойдет, 420 тоже делится на 2,3,5, но еще делится на 7, а это не число Хемминга А, понял. Т.е.надо исключить другие простые числа среди делителей. Да, заменил в проверке i на Вашу функцию, увидел, что это за числа. Сорри, за мой бесполезный пост 0

@Ajjika 0 / 0 / 0 Регистрация: 05.11.2018 Сообщений: 17
	08.11.2018, 19:44 [ТС]	6
	Сообщение от Puporev while n mod 3=0 do n:=n div 3; while n mod 5=0 do n:=n div 5; А как потом вывести сумму первых N элементов этой последовательности 0

@Ajjika 0 / 0 / 0 Регистрация: 05.11.2018 Сообщений: 17
	08.11.2018, 22:14 [ТС]	8
	Можете полный код дать на эту задачу пожалуйста, я в дэлфи нуль, пока не понимаю что с чем 0

Опции темы