мне решать информатику ​

// delete.cpp: определяет точку входа для консольного приложения.

//

#include "stdafx.h"

#include <iostream>

#include <conio.h>

using namespace std;

int main()

{

setlocale(LC_ALL, "rus");

int num, result;

cout << "Введите четырехзначное число: ";

cin >> num; //1234

 

//Проверка на ввод

int p = 1;

while (p <= num)

 p *= 10;

p /= 10;  

if (p != 1000)

{

 cout << "Вы ввели не четырехзначное число";

 _getch();

 return -1;

}

 

int thousand = num / 1000 * 1000; //1 -> 1000

int unit = num % 10; // 4

result = num % 1000 / 10; //23

result = result / 10 + result % 10 * 10; // 32  

result = thousand + result * 10 + unit; //1000 + 320 + 4

      cout << result; //1324

_getch();

}

Поскольку в условии не сказано, включать ли в множество повторяющиеся символы, принято решение для простоты их включать.

const
  nn = 100;{максимальная мощность множества}

var
  m: array[1..nn] of char;
  i, n, n1: integer;
  s1, s2: string;
  alpha, digit: set of char;

begin
  alpha := ['А'..'я'];
  digit := ['0'..'9'];
  n := 0;
  Writeln('Введите строку символов первого множества');
  Readln(s1);
  Writeln('Введите строку символов второго множества');
  Readln(s2);
  for i := 1 to Length(s1) do
    if (s1[i] in alpha) then begin n := n + 1; m[n] := s1[i] end;
  for i := 1 to Length(s2) do
    if (s2[i] in digit) then begin n := n + 1; m[n] := s2[i] end;
  Writeln('Результирующее множество');
  for i := 1 to n do Write(m[i]:2)
end.

Тестовое решение:
Введите строку символов первого множества
-This 1*2 П*ро=изvolnый наbop сим;волob**
Введите строку символов второго множества
Отсюда 1-(4)=5 только цифры 33.634 berem
Результирующее множество
 П р о и з ы й н а с и м в о л 1 4 5 3 3 6 3 4