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

Объяснение:

Допустим у тебя дано число 1001101 (в бинарной си), чтобы перевести ее в десятичную си нужно:
1) Расставить коэффициенты 0,1,2,3 начиная с последней цифры в двоичной записи. В итоге у тебя получаться такие коэффициенты над числами: 1^6, 0^5, 0^4, 1^3, 1^2, 0^1, 1^0.
2) Теперь умножим каждое число в бинарной си на основание двоичной си (двойка) в той степени, которой ты посчитал.
Т.е.: 1*2^6, 0*2^5 и так  далее.
3) Затем остается только сложить полученные числа из второго шага и ты получишь число в десятичной си

ЦЕЛЬ ПРОЕКТИРОВАНИЯ ПРОГРАММЫ:  

Автоматизация расчетов материалов, необходимых для выпол-нения ремонта в доме или квартире.  

НАЗНАЧЕНИЕ ПРОГРАММЫ:  

Расчет количества рулонов обоев для указанной комнаты.  

ОБЛАСТЬ ПРИМЕНЕНИЯ ПРОГРАММЫ:  

Программа может быть использована при ремонте комнаты, ко-гда надо знать, сколько надо купить рулонов обоев.  

ВВОД  

Вводится высота от пола до потолка, длина большей стены, длина меньшей стены, ширина двери, высота двери, ширина оконного проема, высота оконного проема, длина руло-на(const1) и ширина рулона(const2).  

ВЫВОД  

Выводится количество рулонов n

Объяснение: