1. первый элемент списка s равен 1: s[0]=1 . составьте список из 10 элементов, в котором а)каждый следующий элемент больше предыдущего на величину его номера в списке b)каждый следующий элемент равен удвоенному предыдущему плюс один 2. в списке s из один найти количество a)двузначных чисел b)чисел кратных 5 3. даны два вектора а и в в виде списков координат. найдите сумму и разность этих векторов. 4. дано число 2 в степени 1000. найдите сумму цифр этого числа. какая из цифр встречается чаще? буду

Решается и первая и вторая

Вывод на скриншотах

 

#include <iostream>
using std::cout;
using std::cin;
using std::endl;

bool check(int, int);

int main()
{
   int a, b, c;

   cout << "Enter a, b, c: "; //Вводить через пробел
   cin >> a >> b >> c;

   //Проверка на упорядоченность
   if(a <= b && b <= c)
   {

      //Если числа являются упорядоченными,

      // то вывести на экран удвоенные значения
      cout << "The numbers are ordered:\n";
      cout << (a * 2) << ' ' << (b * 2) << ' ' << (c * 2) << endl;
   }
   else
      cout << "The numbers are not ordered" << endl;

   //Проверка на равенство
   if(check(a, b) || check(b, c) || check(a, c))
   {
      cout << "There are equal numbers" << endl;//Есть равные числа
   }
   else
      cout << "Equal numbers are not" << endl;//Нет равных чисел
   return 0;
}

bool check(int x, int y)
{
   if(x == y)
   {
      return true;
   }
   else
      return false;
}

 

 

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.