Question

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

Answer 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.

Объяснение: