Question

Сформировать и вывести на экран последовательность из 25 элементов заданных датчиком случайных чисел на интервале 20,84 Найти кол-во элементов кратных 3 и нечетных и не кратных 10

Answer 1

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

Begin
var a:= ArrRandom(15,20,84);a.PrintLn;
Writeln(a.Where(t -> (t.isOdd)and(t mod 3 = 0)and(t mod 10 <> 0)).Count);
end.

Пример:
64 64 76 31 21 81 53 30 58 38 66 69 57 65 41
4

Answer 2

Для выполнения этой задачи можно воспользоваться языком программирования Python. Вот пример кода, который создает последовательность из 25 случайных чисел на интервале [20, 84], выводит ее на экран и затем находит количество элементов, которые кратны 3, нечетны и не кратны 10:

pythonCopy code
import random

# Функция для генерации случайных чисел на интервале [20, 84]
def generate_random_number():
    return random.randint(20, 84)

# Создаем список из 25 случайных чисел
random_sequence = [generate_random_number() for _ in range(25)]

# Выводим на экран сгенерированную последовательность
print("Сгенерированная последовательность:")
print(random_sequence)

# Находим количество элементов, кратных 3, нечетных и не кратных 10
count_multiple_of_3_odd_not_multiple_of_10 = 0
for num in random_sequence:
    if num % 3 == 0 and num % 2 != 0 and num % 10 != 0:
        count_multiple_of_3_odd_not_multiple_of_10 += 1

# Выводим результат
print("Количество элементов, кратных 3, нечетных и не кратных 10:", count_multiple_of_3_odd_not_multiple_of_10)

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

csharpCopy code
Сгенерированная последовательность:
[73, 61, 52, 67, 53, 65, 80, 26, 33, 34, 71, 81, 68, 73, 48, 68, 51, 67, 71, 51, 59, 40, 55, 47, 49]
Количество элементов, кратных 3, нечетных и не кратных 10: 6

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