Question

напишите программу, которая в последовательности определяет количество нечетных чисел , не оканчивающихся на 1 . Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна не оканчивающихся на 1 вывести одно число - количество нечётных чисел последовательности, не оканчивающихся на 1

Answer 1

Ответ:

PascalABC.NET 3.5.1

begin

 var N := ReadInteger('N = ');

 var S := ReadSeqInteger(N);

 S.Where(p -> (p mod 2 <> 0) and (p mod 10 <> 1)).Count.Println;

end.

Объяснение:

Answer 2

Конечно, вот пример программы на языке Python, который решает данную задачу:

pythonCopy code
def count_odd_not_ending_with_one(sequence):
    count = 0
    for num in sequence:
        if num % 2 != 0 and num % 10 != 1:
            count += 1
    return count

def main():
    n = int(input("Введите количество чисел в последовательности: "))
    sequence = []
    for _ in range(n):
        num = int(input("Введите число: "))
        sequence.append(num)
    
    result = count_odd_not_ending_with_one(sequence)
    print("Количество нечётных чисел последовательности, не оканчивающихся на 1:", result)

if __name__ == "__main__":
    main()

Вы можете скопировать этот код в файл с расширением .py и запустить его. Программа будет запрашивать количество чисел в последовательности и сами числа, а затем выводить количество нечётных чисел, не оканчивающихся на 1.