Количество чётных элементов последовательности. Последовательность состоит из натуральных чисел и завершается числом 0. Определите, сколько элементов этой последовательности являются чётными. Входные данные Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит, а служит как признак её окончания Выходные данные: Выведите ответ на задачу. Примеры:Ввод: 2 1 4 0 Вывод: 2

count = 0

a = int(input())

while a != 0:

   if a % 2 == 0:

       count += 1

   a = int(input())

print(count)

============

Не забывайте нажать " ", поставить оценку и, если ответ удовлетворил, то выберите его как "Лучший"

Бодрого настроения и добра!

Успехов в учебе!

Переводим 112 и 64 в 2СС . 
112 =1110000
 64 =1000000
так как байт - это 8 бит ,следовательно в числе должно быть восемь знаков , тогда добавляем перед числами по незначащему нулю , тогда
112 = 01110000
64 = 01000000
адрес сети получается , когда мы применяем поразрядную конъюнкцию (между маской и ip адресом)
01110000
<-- маска 

01000000
мы видим в адресе сети единицу и над ней в ip адресе тоже единица , значит на этом месте в маске может быть только 1 .
Так как в маске у нас идут (СТРОГО) сначала единицы ,потом нули, тогда маска будет равна 11000000 , что в переводе в 10 -ную СС =192
ответ : 192

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var x:=ReadReal('x=');
  var y:=Sqr((1-x*x+5*Sqr(x*x)));
  Writeln('y=',y)
end.

Пример
x= 4.12
y=2029704.2032886

2a.
 
begin
  var x:=ReadReal('x=');
  var t1:=x*x; // x^2
  var t2:=t1*t1; // x^4
  t2:=t2*t2; // x^8
  t1:=t2*t1; // x^10
  Writeln('x^10=',t1)
end.

2b.

begin
  var x:=ReadReal('x=');
  var t:=x*x; // x^2
  t:=t*t; // x^4
  t:=t*t; // x^8
  t:=t*t; // x^16
  t:=t/x; // x^15
  Writeln('x^15=',t)
end.