Синформатикой
найдите лексическое значение
((1 v 0) v в) & (1 v a)
(1 & 0) v (0 v 1)
((1 & 0) & 1)
((1 v 0) v а)

Программы для PascalABC.Net
Для древних турбопаскалей требуется добавить две строки: первым оператором поставить
Uses Crt;
а предпоследним
Readkey;

var
  i, n, s: integer;

begin
  Write('Введите количество элементов n: '); Read(n);
  s := 0;
  for i := 1 to n do s := s + i;
  Writeln('Сумма 1+2+...+', n, ' = ', s)
end.

Тестовое решение:
Введите количество элементов n: 10
Сумма 1+2+...+10 = 55

var
  i, n: integer;
  s:real;

begin
  Write('Введите количество элементов n: '); Read(n);
  s := 0;
  for i := 1 to n do s := s + 1/i;
  Writeln('Сумма 1+1/2+...+1/', n, ' = ', s)
end.

Тестовое решение:
Введите количество элементов n: 8
Сумма 1+1/2+...+1/8 = 2.71785714285714

ответ 31

код на Ruby 22

for i in 1..40
    s = i.to_s(2)
    k = 0
    s.chars().each {|c| k += 1 if c == "1" }
    s += (k % 2).to_s + "0"
    p [i, s, s.to_i(2)]
end

вывод
[1, "110", 6]
[2, "1010", 10]
[3, "1100", 12]
[4, "10010", 18]
[5, "10100", 20]
[6, "11000", 24]
[7, "11110", 30]
[8, "100010", 34]
[9, "100100", 36]
[10, "101000", 40]
[11, "101110", 46]
[12, "110000", 48]
[13, "110110", 54]
[14, "111010", 58]
[15, "111100", 60]
[16, "1000010", 66]
[17, "1000100", 68]
[18, "1001000", 72]
[19, "1001110", 78]
[20, "1010000", 80]
[21, "1010110", 86]
[22, "1011010", 90]
[23, "1011100", 92]
[24, "1100000", 96]
[25, "1100110", 102]
[26, "1101010", 106]
[27, "1101100", 108]
[28, "1110010", 114]
[29, "1110100", 116]
[30, "1111000", 120]
[31, "1111110", 126]
[32, "10000010", 130]
[33, "10000100", 132]
[34, "10001000", 136]
[35, "10001110", 142]
[36, "10010000", 144]
[37, "10010110", 150]
[38, "10011010", 154]
[39, "10011100", 156]
[40, "10100000", 160]