5. Составьте таблицу истинности для сложного высказывания:
АИ ВИли Не С

# Код на ruby 2.2.3p173
def zadanie(s)
    numbers = []
    s.split(" ").each {|t|
        break if t == "2*109"
        numbers << t.to_i
    }

    max = numbers[0] * numbers[4]
    for i in 0..numbers.size - 4
        for j in i + 4..numbers.size - 1
            p [i,j]
            m = numbers[i] * numbers[j]
            max = m if m % 2 == 1 and m > max
        end
    end

    if max % 2 == 1
        return max
    else
        return "IMPOSSIBLE"
    end
end

# Примеры применения
p zadanie("11 12 2 5 7 6 10 2 8 3 2*109 4")

Код на языке C#:

int sum = 0; //Сумма двух, рядом стоящих элементов
int pro = 1; //Произведение двух, рядом стоящих элементов
int count = 0; //Инициализация переменной, отвечающей за количество пар 
int[] array = { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 }; //Объявляем массив из 10 элементов
for (int i = 0; i < 9; i++) //Цикл от 0 до 9
{   
sum = sum + array[i] + array[i + 1];  //Сумма = 0 + текущий элемент + следующий элемент
pro = pro * array[i] * array[i + 1];  //Произведение = 1 * текущий элемент * следующий элемент 
Console.WriteLine("Сумма пары " + array[i] + " и " + array[i + 1] + " = " + sum + ", а произведение = " + pro); //Вывод
if ((sum % 6 == 1) && (pro < 1000)) //Проверяем условие: если сумма делится на 6 с остатком и произведение меньше 1000, тогда    
       {     
   count++; //Количество пар + 1
       }             
   sum = 0; //Сумма = 0, чтобы не учитывалось ее предыдущее значение
   pro = 1; //Произведение = 1, чтобы не учитывалось его предыдущее значение
   }       
   Console.WriteLine();       
   Console.WriteLine("Количество пар = " + count); //Вывод количества пар      
   Console.ReadKey();