Вопрос по информатике:
Дана непустая последовательность символов. Требуется построить множество, элементами которого являются встречающие-ся в последовательности четные числа от 0 до 10. (PascalAB, HELP!)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 23.03.2015 10:35
- Информатика
- remove_red_eye 16587
- thumb_up 28
Ответы и объяснения 2
begin
for i:=0 to 10 do
begin
if i mod 2=0 then
begin
writeln(i);
end;
end;
end.
- 24.03.2015 05:26
- thumb_up 13
// Внимание! Если программа не работает, обновите версию!
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}
- 25.03.2015 09:33
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.