Дана непустая последовательность символов. Требуется построить множество, элементами которого являются встречающие-ся в последовательности четные числа от 0 до 10. (PascalAB, HELP!)
Ответы
Ответ дал:
0
var i: Integer;
begin
for i:=0 to 10 do
begin
if i mod 2=0 then
begin
writeln(i);
end;
end;
end.
begin
for i:=0 to 10 do
begin
if i mod 2=0 then
begin
writeln(i);
end;
end;
end.
Ответ дал:
0
Бред сивой кобылы...
Ответ дал:
0
согласен.) Что-то не так прочиталось=)
Ответ дал:
0
// 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}
// Внимание! Если программа не работает, обновите версию!
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}
Приложения:
![](https://st.uroker.com/files/e86/e86b079cdd47107f613cbc083134feeb.png)
Ответ дал:
0
Для неверящих что это именно множество, а не перечисление: в исходной последовательности несколько раз в произвольных местах укажите одинаковые значения элементов, попадающих в критерий отбора.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад