Информационное сообщение объемом 1, 5 кбайта содержит 3072 символа.сколько символов содержит алфавит, при котрого было записано это сообщение?

степень

program jopascal;  

var  

  i, a: longint;  

  x,  

  u, j,  

  n, m : longint;  

function fdiv (a, left : longint) : longint;  

var  

d,  

i : longint;  

begin  

d : = 1;  

for i : = left to trunc (sqrt (a)) do  

if (a mod i = 0)  

then  

begin  

d : = i;  

break;  

end;  

if (d < > 1)  

then  

fdiv : = d  

else  

fdiv : = a;  

end;  

function g (n, u : longint) : longint;  

var  

i : longint;  

begin  

i : = 0;  

while (n mod u = 0)  

do

begin  

inc (i);  

n : = n div u;  

end;  

g : = i;  

end;  

begin  

assign (input, 'input.txt');  

assign (output, 'output.txt');  

reset (input);  

read (a);  

close (input);  

m : = 0;  

n : = 1;  

i : = fdiv (a, 2);  

u : = 2;  

while (a > 1)  

do  

begin  

n : = n * i;  

j : = 0;  

while (a mod i = 0)  

do  

begin  

inc (j);  

a : = a div i;  

end;  

if (j > m)  

then  

begin  

m : = j;  

u : = i;  

end;  

i : = fdiv (a, i + 2);  

end;  

x : = 1;  

while (g (n * x, u) * n * x < m)  

do  

inc (x);  

n : = n * x;  

rewrite (output);  

write (n);  

close (output);  

end.

#include < iostream>

#include < ctime>

using namespace std;

int main()

{

double a[50], s = 0, count = 0;

srand(time(null));

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

{

  a[i] = -30 + rand() % 41;

                if(a[i]> 0)

  {

                      s += a[i];

        count++;

                }

}

cout < < s / count < < endl;

system("pause");

return 0;

}

выражение rand() % 41 рандомно принимает любое возможное значение остатка при делении на 41 ( от нуля до 40-а), следовательно -30+ rand()%41 рандомно принимает значение от -30-и до 10-и. выбираем 50 таких рандомных чисел и храним их в массиве а, заодно в переменной s очередное число, если оно положительное а в переменной count считаем количество положительных чисел. s/count будет средней арифметической всех положительных чисел промежутка.