Question

Дана последовательность натуральных 3-х значных чисел, за которой следует 0. Составить программу поиска в данной последовательности элемента, сумма цифр которого равна N Делать программу через цикл While

Answer 1

Var
k: array[1..100] of integer;
a,N,i,c:integer;
begin
c:=0;
i:=1;
a:=999;
write('Введите N: ');
readln(N);
writeln('Введите a: ');
while a<>0 do beginr
eadln(a);
if (a>=100) and (a<=999) then begin
if ((a div 100)+((a div 10) mod 10)+(a mod 10))=N then begin
k[i]:=a;
i:=i+1;
c:=c+1;
end;
end;
end;
if c>0 then begin
writeln('Числа, сумма цифр которых равна ',N,':');
for i:= 1 to c do
writeln(k[i]);
end;
end.

Answer 2

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

pythonCopy code
def calculate_digit_sum(number):
    # Функция для вычисления суммы цифр числа
    digit_sum = 0
    while number > 0:
        digit_sum += number % 10
        number //= 10
    return digit_sum

sequence = []
n = int(input("Введите значение N: "))
while True:
    number = int(input("Введите число (для завершения введите 0): "))
    if number == 0:
        break
    sequence.append(number)

found_elements = []
index = 0
while index < len(sequence):
    if calculate_digit_sum(sequence[index]) == n:
        found_elements.append(sequence[index])
    index += 1

if len(found_elements) > 0:
    print("Элементы сумма цифр которых равна", n, ":", found_elements)
else:
    print("Нет элементов сумма цифр которых равна", n)

Программа начинается с запроса значения N. Затем с помощью цикла while мы запрашиваем числа от пользователя до тех пор, пока он не введет 0. Введенные числа сохраняются в последовательности.

Далее у нас есть функция calculate_digit_sum, которая вычисляет сумму цифр числа. Мы используем ее во втором цикле while для проверки каждого элемента последовательности. Если сумма цифр элемента равна N, то мы добавляем этот элемент в список found_elements.

В конце программы мы выводим список найденных элементов или сообщение о том, что нет элементов с такой суммой цифр.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.