===== PascalABC.NET =====
begin
var a := ArrRandom(12, -2, 15);
Println('Исходный массив');
a.Println;
Println('Отобранные элементы');
a[2:].Println;
Println('После сортировки');
a[2:].Sorted.Println
end.
#include <stdio.h>
#include <math.h>
#include <stdlib.h>
int main() {
float a_1, a_2, a_3, x;
printf ("vvod a_1, a_2, a_3\n");
scanf ("%f %f %f",&a_1,&a_2,&a_3);
printf ("Proizved = %f\n",a_1*a_2*a_3);
printf ("Sred geometr = %f\n",pow(a_1*a_2*a_3, 1.0/3));
printf ("vvod x\n");
scanf ("%f",&x);
printf ("Po form: %f\n",exp(1.0/(3*x))-abs(3*x*x-pow(pow(x+1,4)+log((pow(x,4)+4)/(pow(x,2)+2)),1.0/5)));
int a;
printf ("vvod a\n");
scanf ("%d",&a);
int c=a%10*10+a/10;
printf ("%d",c);
system ("pause");
}
Пример:
<span>vvod a_1, a_2, a_3
2 3 5
Proizved = 30.000000
Sred geometr = 3.107233
vvod x
4
Po form: -42.913096
vvod a
71
17</span>
Запись алгоритма в виде блок-схемы более наглядная и компактная.
N=2i (2 в степени i) - формула Шеннона
N - мощность алфавита. Отсюда i=7
То есть один символ несёт информационный объём в 7 бит. А их аж 8192. Перемножаем 8192*7 и делим на 8 (количество битов в одном байте) = 7168 байта. Что составляет 7168/1024=7 Кб
Ответ: 7 Килобайт