#include <iostream> #include <iomanip> using namespace std;
int main() { int n; cout<<"n = "; cin>>n; // ввод количества элементов массива int a[n]; // заполнение массива и вывод на экран for (int i=0;i<n;i++) { a[i]=rand()%15; cout<<a[i]<<" "; } cout<<endl; // перевод строки // сортировка массива по возрастанию for (int i=0; i<n-1; i++) for (int j=i+1; j<n; j++) if (a[i]>a[j]) swap(a[i],a[j]); // вывод 4 минимальных cout<<"four min numbers: "; for (int i=0; i<4; i++) cout<<a[i]<<" "; cout<<endl; system("pause"); // ожидание ввода с клавиатуры return 0; }
#include <iostream> #include <iomanip> using namespace std;
int main() { int n; cout<<"n = "; cin>>n; // ввод количества элементов массива int a[n]; // заполнение массива и вывод на экран for (int i=0;i<n;i++) { a[i]=rand()%15; cout<<a[i]<<" "; } cout<<endl; // перевод строки // сортировка массива по возрастанию for (int i=0; i<n-1; i++) for (int j=i+1; j<n; j++) if (a[i]>a[j]) swap(a[i],a[j]); // вывод 4 минимальных cout<<"four min numbers: "; for (int i=0; i<4; i++) cout<<a[i]<<" "; cout<<endl; system("pause"); // ожидание ввода с клавиатуры return 0; }
Используется Pascal 3.5.1 сборка 2256 (от 16.10.2019):
function Factorial(n: integer): integer;
begin
Result := 1;
for var i:=2 to n do
Result *= i;
end;
function Power(a: integer; n: integer): integer;
begin
Result := 1;
for var i:=1 to n do
Result *= a;
end;
var
an:real;
n:=ReadInteger;
begin
an:=Power(Factorial(n),2)/Factorial(Power(2,Power(n,2)));
writeln(an);
end.