Question

Дана непустая последовательность символов. Требуется построить множество, элементами которого являются встречающие-ся в последовательности четные числа от 0 до 10. (PascalAB, HELP!)

Answer 1

var i: Integer;
begin
for i:=0 to 10 do
begin
if i mod 2=0 then
begin
writeln(i);
end;
end;
end.

Answer 2

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

begin
  var s:=ReadlnString('Введите элементы через пробел'+NewLine);
  var ss:=Seq(s.ToWords); // исзодная последовательность
  var h:=ss.Where(w->w.All(c->c in ['0'..'9'])).Select(w->w.ToInteger)
      .Where(n->n.InRange(0,10) and n.IsEven).ToHashSet;
  Writeln('Множество: ',h)
end.

Пример
Введите элементы через пробел
 ajd 5 r13 023 raA6 8 10 4t 12 8rd 4 14 ed 000 qq
Множество: {8,10,4}