Питон
Дан набор из N целых положительных чисел. Из этих чисел формируются все возможные пары (парой считаются два элемента, которые находятся на разных местах в наборе, порядок чисел в паре не учитывается), в каждой паре вычисляются сумма и произведение элементов. Необходимо определить количество пар, у которых сумма нечётна, а произведение делится на 5.

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.

Я ценю человеческие ценности: доброта, честность, щедрость, патриотизм, отзывчивость, юмор, верность. Для нас с другом самые лучшие ценности: отзывчивость и патриотизм, ведь эти ценности для нас очень важны.

1. Ложь что мальчик хорошо обращается с девочкой. Правда что он обижает девочку.

2. Ложь что он не уступает место дедушке. Правда что он уступает место дедушке.

3. Ложь что ребята уступают место пожилой бабушке. Правда что они смотрят в окно и не уступают место бабушке.

4. Ложь что они добротно общаются с друг другом. Правда что дети ссорятся и дерутся.