151 в двоичной системе (10010111) тем самым единиц равняется 5.
<em>ГОЛЛИВУД</em> (<span>Е:\КИНО\ФАНТАСТИКА</span>\ГОЛЛИВУД)
Var i, n, k, s: integer;
begin writeln('n='); readln(n); s := 0; for i := 1 to n do begin readln(k); if (k < 40) and (k mod 2 = 1) then s := s + k; end; writeln('s=', s);end.
8 ж 9б 10 в 11 г 12 а 13 б 14 а 15 а 16а
Решение показано во вложении