сама только сделала. вот решила помочь
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ArrRandom(15,-5,15); m.Println;
var a:=ReadInteger('a =');
m.Transform(t->t-a); m.Println
end.
<u>Пример</u>
-2 14 -3 2 -4 6 1 -3 9 1 -4 -2 14 9 8
a = 5
-7 9 -8 -3 -9 1 -4 -8 4 -4 -9 -7 9 4 3
Мощность алфавита N=10
вес одного символа в битах i:
i≈3,5=4 (округляем в большую сторону)
тогда вес сообщения I считаем по формуле I=k*i, где k - количество символов, k=10
I=4*10=40 бит
ответ: 40 бит
25 Гбайт = 214748364800бит
2048Кбайт = 2Мбайт
140 Мбайт = 1174405120
2028 Кбайт = 15,84 Мбит
5 Гбайт = 42949672960 бит
#include <iostream>
#include <clocale>
#include <cmath>
using namespace std;
void main()
{
setlocale(LC_CTYPE,"rus");
int x, sum=0;
cout<<"Введите переменную: ";
cin>>x;
for(int i=1; i<x;i++)
{
if(x%i==0)
sum+=i;
}
if(x==sum)
{cout<<"Это совершенное число"<<endl;}
else
{cout<<"Это несовершенное число"<<endl;}
<span>}</span>