20 !
игральный кубик бросается три раза (выпадает три случайных значения). из этих чисел составляется целое число, программа должна найти его квадрат.
пример:
выпало очков:
1 2 3
число:
123
его квадрат:
15129
нужно написать программу в паскале

Объяснение:

#include <iostream>

#include<vector>

#include <algorithm>

using namespace std;

int main() {

ios::sync_with_stdio(false);

int N, A, B;

cin >> N;

vector < vector <int>> IO;

int lastDay = 0;

for (int i = 0; i <  N; i++) {

 cin >> A >> B;

 IO.push_back(vector<int>());

 IO[i].push_back(A);

 IO[i].push_back(B);

 IO[i].push_back(i);

}

sort(IO.begin(), IO.end());

for (int i = 0; i < N; i++)

{

 if (lastDay >= IO[i][1]) {

  IO[i][0] = -1;

  IO[i][1] = -1;

 }

 else {

  if (lastDay < IO[i][0]) {

   lastDay = IO[i][1];

  }

  else if (lastDay >= IO[i][0]) {

   IO[i][0] = lastDay+1;

   lastDay = IO[i][1];

  }

 }

}

for (int i = 0; i < N; i++) {

 for (int j = 0; j < N; j++) {

  if (IO[j][2] == i) {

   cout << IO[j][0] << " " << IO[j][1] << endl;

   break;

  }

 }

}

return 0;

}

Код#include <iostream>#include <vector>template <class T>T order_statistics (std::vector<T> a, unsigned n, unsigned k);int main() {    std::vector<int> seq;    int N, input;    std::cin >> N;    for (int q = 0; q < N; ++q) {        std::cin >> input;        seq.push_back(input);    }    double median;    unsigned int len = seq.size();    if (len % 2 == 1) {        median = order_statistics(seq, len, (len+1) / 2);    }    else {        median = (order_statistics(seq, len, (len+1) / 2) + order_statistics(seq, len, (len+1) / 2 + 1)) / 2.0;    }    std::cout << "Median of seq: " << median;    return 0;}template <class T>T order_statistics (std::vector<T> a, unsigned n, unsigned k){    using std::swap;    for (unsigned l=1, r=n; ; )    {        if (r <= l+1)        {            if (r == l+1 && a[r] < a[l])                swap (a[l], a[r]);            return a[k];        }        unsigned mid = (l + r) >> 1;        swap (a[mid], a[l+1]);        if (a[l] > a[r])            swap (a[l], a[r]);        if (a[l+1] > a[r])            swap (a[l+1], a[r]);        if (a[l] > a[l+1])            swap (a[l], a[l+1]);        unsigned                i = l+1,                j = r;        const T                cur = a[l+1];        for (;;)        {            while (a[++i] < cur) ;            while (a[--j] > cur) ;            if (i > j)                break;            swap (a[i], a[j]);        }        a[l+1] = a[j];        a[j] = cur;        if (j >= k)            r = j-1;        if (j <= k)            l = i;    }}