Назначение представленного фрагмента программы:
Р:=1;
FOR K:=1 TO 100 DO
Р:=P*K;
WRITE (P);
Вычисление произведения первых ста натуральных чисел

Вычисление произведения четных натуральных чисел,меньших 100

Вычисление произведения ста чисел, введенных пользователем

Using System;
  class Program {    static void Main() {        int n = 5, m = 12, imin = 0, imax = 0, max = 0, min = 100;
        var a = new Int32[n, m];
        var random = new Random();
        for (var i = 0; i < n; i++, Console.WriteLine())
            for (var j = 0; j < m; j++) {                a[i, j] = random.Next(100);
                if (max < a[i, j]) { max = a[i, j]; imax = j; }
                if (min > a[i, j]) { min = a[i, j]; imin = j; }
                Console.Write("{0,4}", a[i, j]);
            }
        if (imin == imax) Console.WriteLine("Элементы находятся в одном столбце");
        else {            Console.WriteLine();
            for (int i = 0; i < n - 1; i++)
                for (int j = i + 1; j < n; j++)
                    if (a[i, imin] > a[j, imin]) {                        var temp = a[i, imin]; a[i, imin] = a[j, imin]; a[j, imin] = temp;
                    }
            for (int i = 0; i < n - 1; i++)
                for (int j = i + 1; j < n; j++)
                    if (a[i, imax] < a[j, imax]) {
                        var temp = a[i, imax]; a[i, imax] = a[j, imax]; a[j, imax] = temp;
                    }
            for (var i = 0; i < n; i++, Console.WriteLine())
                for (var j = 0; j < m; j++)
                    Console.Write("{0,4}", a[i, j]);
        }
        Console.Read();
    }
}

Пример:

Язык C++. #include < iostream >
#include < cmath >
using namespace std;
int main() {
float c, s, v, h, r;
int m;
cout << "Выберите цифру, где: 1 - длина окружности, 2 - площадь круга, 3 - объем цилиндра." << endl;
cin >> m;
switch (m){
case (1):{
cout << "Введите радиус: " << endl;
cin >> r;
cout << "Длина окружности равна: " << 2*M_PI*r << endl;
break;
}
case (2):{
cout << "Введите радиус: " << endl;
cin >> r;
cout << "Площадь круга равна: " << M_PI * pow (r,2) << endl;
break;
}
case (3): {
cout << "Введите радиус и высоту: " << endl;
cin >> r >> h;
cout << "Объем цилиндра равен: " << M_PI * pow (r,2 ) * h << endl;
break;
}
default:
cout << "Некорректный ввод." << endl;
}
return 0;
}