profile
Опубликовано 5 лет назад по предмету Информатика от Tartaruga552

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

  1. Ответ
    Ответ дан estengseant
    var i: Integer;
    begin
    for i:=0 to 10 do
    begin
    if i mod 2=0 then
    begin
    writeln(i);
    end;
    end;
    end.
    1. Ответ
      Ответ дан Аккаунт удален
      Бред сивой кобылы...
    2. Ответ
      Ответ дан estengseant
      согласен.) Что-то не так прочиталось=)
  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}
    1. Ответ
      Ответ дан Аккаунт удален
      Для неверящих что это именно множество, а не перечисление: в исходной последовательности несколько раз в произвольных местах укажите одинаковые значения элементов, попадающих в критерий отбора.