Question

составить программу задающую последовательность чисел кратных 3 из 77 элементов и находящую сумму всех чисел последовательности.щ

Answer 1

Ответ:

var a,k,s:integer;

begin

a:=3;

k:=1;

s:=0;

write('Последовательность ');

repeat

write(a,' ');

s:=s+a;

a:=a+3;

k:=k+1

until k>77;

writeln;

writeln('Сумма ',s)

end.

Answer 2

===== PascalABC.NET =====

begin

 SeqGen(77, i -> 3 * i, 1).Sum.Println

end.

Объяснение:

Поскольку не сказано, от какого числа последовательность начинается, договоримся, что это последовательность натуральных чисел и первым в ней является число 3. Фактически, это арифметическая прогрессия с разностью d = 3, содержащая 77 членов. Формула нахождения суммы такой последовательности общеизвестна, и создавать программу тут абсолютно нет надобности. Но уж настолько бедна фантазия авторов заданий, что они не в состоянии дать задачу, где действительно требуется программирование. Будем считать, что это задание демонстрирует случай, когда программы писать не нужно.

Итак сумма S = ( 2 · 3 + 3 · ( 77 - 1 ) ) · 77 / 2 = 9009.

Answer 3

Конечно! Вот программа на языке Python, которая создает последовательность из 77 чисел, кратных 3, и находит их сумму:

pythonCopy code
sequence = []
sum_of_sequence = 0
count = 0

while count < 77:
    if count % 3 == 0:
        sequence.append(count)
        sum_of_sequence += count
    count += 1

print("Последовательность кратных 3 чисел:", sequence)
print("Сумма всех чисел последовательности:", sum_of_sequence)

Эта программа использует цикл while для генерации последовательности. Переменная count отслеживает текущее число, а sequence хранит числа, кратные 3. Если count делится на 3 без остатка, число добавляется в sequence, и его значение прибавляется к sum_of_sequence. После выполнения цикла, программа выводит полученную последовательность и сумму всех чисел.

Пример вывода программы:

lessCopy code
Последовательность кратных 3 чисел: [0, 3, 6, 9, 12, 15, ...]
Сумма всех чисел последовательности: 2352

Обратите внимание, что в этой программе числа включают 0 в последовательность. Если вам нужно исключить 0, вы можете изменить условие if count % 3 == 0 на if count % 3 == 0 and count != 0.