Итак разыгрывается 75 баллов за лучший ответ

#include <iostream>

#include <vector>

using namespace std;

void swap(int *a, int *b){

   int temp = *a;

   *a = *b;

   *b = temp;

}

signed main(){

   int n;

   cin >> n;

   int a[n];

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

       cin >> a[i];

   int res = 0;

   for(int i = 0; i < n-1; i++){

       for(int j = 0; j < n-i-1; j++){

           if(a[j] > a[j+1]){

               res++;

               swap(a[j],a[j+1]);

           }

       }

   }

   cout << res;

}

Дан во вложении.

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?

значит так, используем единственную в информатике формулу

n=2^i

n-это количество символов в алфавите, значит n=64

64 это 2 в 6 степени, значит i=6 - это информационный объем одного символа, а нам надо найти информационный объем 3072 символа, значит

6*3072 = 18432 бита = 2304 байта