Question

Напишите программу поиска суммы положительных нечетных чисел, меньших 100 и некратных 3. ПОЖАЛУЙСТААААААААА

Answer 1

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
  Println(Range(1,99).Where(n->(Odd(n) and (n mod 3<>0))).Sum)
end.

Результат выполнения программы:
1633

Answer 2

Конечно, я могу помочь вам написать программу на каком-либо языке программирования. Ниже приведен пример программы на Python, который выполняет поиск суммы положительных нечетных чисел, меньших 100 и некратных 3:

# Инициализируем переменную для хранения суммы
sum_of_numbers = 0

# Используем цикл для итерации по числам от 1 до 99 (включительно)
for number in range(1, 100, 2):
    # Проверяем, что число не кратно 3
    if number % 3 != 0:
        # Прибавляем число к сумме
        sum_of_numbers += number

# Выводим результат
print("Сумма положительных нечетных чисел, меньших 100 и некратных 3:", sum_of_numbers)

Давайте разберем код:

1. `sum_of_numbers` - это переменная, в которой мы будем хранить сумму. 2. `for number in range(1, 100, 2)` - цикл для итерации по нечетным числам от 1 до 99 (шаг 2). 3. `if number % 3 != 0` - проверка, что число не кратно 3. 4. `sum_of_numbers += number` - добавление числа к сумме, если оно удовлетворяет условиям. 5. `print("Сумма положительных нечетных чисел, меньших 100 и некратных 3:", sum_of_numbers)` - вывод результата.

Вы можете скопировать этот код и выполнить его на вашем компьютере, если у вас установлен Python. Если у вас есть предпочтения по языку программирования, уточните это, и я могу предоставить аналогичный пример на другом языке.