В минимальный комплект устройств, обеспечивающий работу стационарного персонального компьютера, входят: монитор

колонки

принтер

системный блок

наушники

клавиатура

мышь

выбрать нужно несколько​

#include <iostream>

#include <clocale>

using namespace std;

int main()

{

   setlocale(LC_ALL,"Russian");

   int x, i, j, s;

   cout << "Введите x: ";

   cin >> x;

   for (int i = 2; i <= x; i++)

   {

       s = 0;

       for (int j = 1; j <= i / 2; j++)

       {

           if (i % j == 0)

           {

               s += j;

           }

       }

       if (s == i)

       {

           cout << i << " ";

       }

   }

}

Объяснение:

#include <iostream>  // Библиотека ввода-вывода

#include <clocale>  // Библиотека локализации (возможно, будет работать и без нее)

using namespace std;  // Пространство имён

int main()

{

   setlocale(LC_ALL,"Russian");  // Локализация в консоли (возможно, будет работать и без нее)

   int x, i, j, s;  // Объявление переменных

   cout << "Введите x: ";  // Выводим текст

   cin >> x;  // Вводим x с клавиатуры

   for (int i = 2; i <= x; i++)  // Выполняем до того момента, пока i <= x

   {

       s = 0;

       for (int j = 1; j <= i / 2; j++)  // Выполняем до того момента, пока j <= i ÷ 2 (без остатка)

       {

           if (i % j == 0)  // Если остаток от i ÷ j = 0

           {

               s += j;  // К s прибавляется j

           }

       }

       if (s == i)  // Если s = i

       {

           cout << i << " ";  // Выводим i с пробелом

       }

   }

}

1.
const n=20; 
var
  a:array[1..n] of integer;
  i,k,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
  a[i]:=Random(51)-25;
  Write(a[i]:4)
end;
writeln;
write('K = '); readln(k);
s:=0;
for i:=1 to n do 
 if a[i] mod k = 0 then s:=s+a[i];
Writeln('s = ',s);
end.

Пример:
Исходный массив:
18 -24 -4 -21 15 19 18 -16 -1 -8 7 -21 21 22 -24 -4 18 -16 24 4
K = 3
s = 24

2.
const n=10; 
var
  a:array[1..n] of integer;
  i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
  a[i]:=Random(11);
  Write(a[i]:4)
end;
writeln;
writeln('Выбранные элементы:');
for i:=1 to n do 
 if a[i]<=i then Write(a[i]:4) else write(' ':4);
Writeln;
end.

Пример:
Исходный массив:
   9   1   2   8   2   7   1  10   8   3
Выбранные элементы:
       1   2       2       1       8   3