Пользователь вводит 3 числа от 1 до 100.выбрать то число которое больше 20 но меньше 50 и делится на 3 без остатка.

21,24,27,30,33,36,39,42,45,48

pascalabc.net

begin

  var d : = new dictionary; // словарь

  var s : = readlnstring('введите текст: ')   // ввести строку текста

      .tolower     // перекодировать буквы к нижнему регистру

      .where(c -> c.isletter);   // отобрать только буквы

  foreach var c in s do   // повторить для каждого символа в строке

    if d.containskey(c) then     // если символ уже встречался

      d[c] += 1         // увеличить его счетчик на 1

    else                                     // в противном случае

      d.add(c, 1);   // добавить символ в словарь со счетчиком 1

  d.where(p -> p.value > 1) // отобрать элементы словаря со счетчиком > 1

      .select(p -> p.key)   // выбрать сами символы

      .orderby(p -> p)       // отсортировать по алфавиту

      .println(' ')         // вывести через пробел в строку

end.

pascalabc.net

begin

  seqgen(77, i -> 3 * i, 1).sum.println

end.

объяснение:

поскольку не сказано, от какого числа последовательность начинается, договоримся, что это последовательность натуральных чисел и первым в ней является число 3. фактически, это арифметическая прогрессия с разностью d = 3, содержащая 77 членов. формула нахождения суммы такой последовательности общеизвестна, и создавать программу тут абсолютно нет надобности. но уж настолько бедна фантазия авторов , что они не в состоянии дать , где действительно требуется программирование. будем считать, что это демонстрирует случай, когда программы писать не нужно.

итак сумма s = ( 2 · 3 + 3 · ( 77 - 1 ) ) · 77 / 2 = 9009.