Дана непустая последовательность символов. Требуется построить множество, элементами которого являются встречающие-ся в последовательности четные числа от 0 до 10. (PascalAB, HELP!)
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
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}