7) дано произвольное натуральное число, в котором все цифры различны. удалить все цифры между максимальной и минимальной цифрой. можно сделать в паскале , симантике , , с++

Вроде работает

#include <bits/stdc++.h>

using namespace std;

int main()
{ 
string s; 
cin >> s; 
int imin = 0, imax = 0; 
char Min = '9'+ '0'; char Max = '0'-'0'; 
 for (int i = 0; i < s.length(); ++i) 
   {   
     if (s[i] < Min)   
    { 
           Min = s[i]; 
           imin = i; 
    }   
     if (s[i] > Max)     
    { 
          Max = s[i]; 
          imax = i;
    } 
    
} 
  s.erase(1 + min(imax, imin), abs(imax-imin) - 1);
  cout << s;
}

// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var ИсходноеЧисло:=ReadlnString('Введите исходное целое число:');
  var МассивЦифрЧисла:=ИсходноеЧисло.ToCharArray;
  var МестоМаксЦифры:=МассивЦифрЧисла.IndexMax;
  var МестоМинЦифры:=МассивЦифрЧисла.IndexMin;
  If МестоМинЦифры>МестоМаксЦифры then Swap(МестоМинЦифры,МестоМаксЦифры);
  ИсходноеЧисло:=ИсходноеЧисло?[:МестоМинЦифры+1]+
      ИсходноеЧисло?[МестоМаксЦифры+2:];
  Writeln('Результат замены: ',ИсходноеЧисло)
end.

Пример
Введите исходное целое число: 1402956387
Результат замены: 1456387

Задача 1:

Imports System
Module MainModule
    Sub Main()
        Dim a, b, h, S As Double
        Console.Write("a = ")
        a = Console.ReadLine()
        Console.Write("b = ")
        b = Console.ReadLine()
        Console.Write("h = ")
        h = Console.ReadLine()
        S = (a + b) / 2 * h
        Console.Write("S = ")
        Console.WriteLine(S)
        Console.ReadKey
    End Sub
End Module

Задача 2:

Imports System
Module MainModule
    Sub Main()
        Dim x, y As Double
        Console.Write("x = ")
        x = Console.ReadLine()
        Console.Write("y = ")
        y = Console.ReadLine()
        If (x < 0) And (y < 0) Then
            x = -x
            y = -y
        Else If (x < 0) Or (y < 0) Then
            x += 0.5
            y += 0.5
        Else If (x >= 0.5) And (x <= 2) And (y >= 0.5) And (y <= 2) Then
            x /= 10
            y /= 10
        End If
        Console.Write("x = ")
        Console.WriteLine(x)
        Console.Write("y = ")
         Console.WriteLine(y)
        Console.ReadKey
    End Sub
End Module

Систематизация и поиск информации в хранилище связаны для облегчения поиска внутри каждой ветви, то есть нужную нам информацию попросту отсортировывают (упорядочивают).
Пример: ты ищешь информацию о смартфоне "Samsung Galaxy" и ты найдешь около миллиона предложений. Соответственно искать нужную тебе модель ты будешь намного дольше, если ты добавишь к "Samsung Galaxy" модель "S5", то кол-во информации значительно уменьшится, потому что ты ищешь то, что ты конкретно знаешь.
Говоря короче, зная область, модель, номер, фирму и т.д. ты сужаешь область поиска информации.