Question

Ребят Паскаль
Напишите программу, которая в последовательности целых чисел определяет разность количества четных и нечетных чисел. Программа получает на вход числа последовательности, условием остановки является ввод числа 0. Количество чисел заранее неизвестно, но не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число — разность количества четных и нечетных чисел.

Answer 1

PascalABC.NET 3.6.2

begin

 var S := ReadSeqIntegerWhile(p -> p <> 0).ToList;

 var odd := S.Where(p -> p mod 2 <> 0).Count;

 var even := S.Where(p -> p mod 2 = 0).Count;

 var diff := abs(even - odd);

 diff.Println;

end.

Answer 2

// PascalABC.NET

begin

   var diff := 0;

   ReadSeqIntegerWhile(p -> p <> 0)

       .Foreach(p -> begin diff += p.IsOdd ? -p : p end);

   diff.Print

end.