|
#1
|
|||
|
|||
Задача Delphi 7
Помогите пожалуйста составить программу
Последовательность Хэмминга образуют натуральные числа, не имеющие других простых делителей, кроме 2,3 и 5. Найти: а) первые N элементов этой последовательности; б) сумму первых N элементов; в) первый элемент по заданному номеру N; г) первый элемент, больший данного числа M, а также номер этого элемента в последовательности; д) сумму всех элементов с номера N по номер M. Вот я составил 1, а дальше как: Код:
k:=1; i:=1; repeat if k mod2=0 then i:=i*3 else if k mod 3=0 then i:=i*5 else i:=i*2 writeln(i); inc(k); until k>=n |
#2
|
|||
|
|||
1. Перепиши алгоритм расчета N-го члена последовательности с использованием массива, т.е. в процессе работы программа должна накапливать значения и, если они уже есть в массиве не считать их, а брать оттуда. И напиши это в виде отдельной функции.
2,3 и т.д. пишется с использованием циклов и функции, написанной в п.1. |