Question

С клавиатуры вводится последовательность натуральных чисел, оканчивающихся числом 0. Количество чисел в последовательности неизвестно. Программа должна вывести на экран четные числа из этой последовательности, которые не меньше 50.

Answer 1

Ответ:

var

 a: array of Integer;

 n, i: Integer;

begin

 repeat

   ReadLn (n);

   if n <> 0 then begin

     SetLength (a, High (a) + 2);

     a [High (a)] := n;

   end;

 until n = 0;

 WriteLn;

 for i := Low (a) to High (a) do

   if (a[i] >= 50) and (a[i] mod 2 = 0) then

     Write (a [i], ' ');

 ReadLn;

end.

Answer 2

===== PascalABC.NET =====

begin

 ReadSeqIntegerWhile(p -> p <> 0).

   Where(p -> p.IsEven and (p >=50)).Println

end.