Вводится последовательность чисел, ноль - конец последовательности. Определить сколько...

Question

Вводится последовательность чисел, ноль - конец последовательности. Определить сколько чётных чисел было введено? написать while, подробно

Answer 1

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

begin
  var k:=0;
  var t:integer;
  while true do begin
    Read(t);
    if t=0 then break;
    if t.IsEven then k+=1
    end;
  Writeln('Введено четных чисел: ',k)
end.

Пример
25 -51 -87 -98 22 -10 -23 -17 18 -6 -27 18 -16 -3 96 92 34 0
Введено четных чисел: 10

Comments

спасибо, большое

Answer 2

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.