Вопрос такой, захожу в биос, а он просто тупит, даже секунда не идут где время показывается, что с ним делать. материнка p5b ,6 гб оперативки тремя плашками, если ставлю 4 плашки то комп просто не запускается, подскажите что делать. за ранее .

Не очень понятно, в одно ли действие это должно быть, и какой язык программирования. Ну да ладно. 
Понять четное число или нет, можно с такого оператора как "%". Называется он деление без остатка. Это такой же оператор как +, -, *, /. Работает он так: если мы напишем, например, 10%2, он вернет ноль, так как 10 делится на 2 нацело. Если мы напишем 10%3, то получим единицу, так как 10 на три нацело не делится. Это выглядит как 3 + 3 + 3 + 1. Эту единицу мы и получим как результат. Соответственно, написав, например, 12/3 , получим 0.
20%6 = 2  (20 = 6 + 6 + 6 +2)
18%5 = 3  (18 = 5 + 5 + 5 + 3)
30%10 = 0 (30 = 10 +10 +10 +0)
и так далее. То есть мы получаем остаток от целого деления. Этот оператор позволяет нам так же узнать, четное ли число в левой стороне. Для этого в правой стороне нашего выражения нужно поставить двойку. 
Примеры:
10 % 2 = 0 (если ноль, то четное)
11%2 = 1 (если единица, то нечетное)
15%2 = 1 
и т.д.
соответственно, тебе нужно в начале проверить, больше ли вводимое число чем 9 (для этого нужен оператор сравнения (твое число > 9). Так мы узнаем двухзначное ли оно. А потом применить оператор % с двойкой и посмотреть что получается в результате, ноль (четное) или единица(нечетное).      

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

#1

begin

 var n := ReadInteger();

 var a := Range(1, n);

 //Sum

 a.Sum.Println;

 //произведение

 a.Aggregate(BigInteger.One, (p, q) -> p * q).Println;

 //Кол-во кратных 2 и 3

 a.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Count.Println;

 //Среднее ряда

 a.Average.Round.Println

end.

#2

begin

 var A := ReadArrInteger(10);

 A.Println;

 //максимум

 A.Max.Println;

 //Сумма кратных 2 и 3

 A.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Sum.Println

end.