Информационный объем текста складывается из информационных весов составляющих его символов, Например, следующий текст, записанный с помощью двоичного алфавита:1101001011000101110010101101000111010010<span>содержит 40 символов, следовательно, его информационный объем равен 40 битам.
Т.е. (48*20*60)*2 = 115200 бит = </span>0,014 Мб<span>
</span>1 Мегабайт (Мб) = 1024 Килобайт (Кб) * 8 192 = 8 388 608 бит
<span>1 Килобайт (Кб) = 1024 Байт * 8 = 8 192 бит </span>
<span>1 Байт = 8 Бит</span>
===== PascalABC.NET =====
begin
var a := ArrRandom(40, -99, 99);
a.Println;
var i := a.IndexMax;
a?[:i]
.Where(p -> p <> 0)
.Aggregate(Biginteger.One, (p, q) -> p * q)
.Print
end.
<span>алг квадратное уравнение
нач
вещ a, b, c, D, x1, x2
ввод a
ввод b
ввод c
D := b**2 - 4*a*c
вывод "D = ", D, нс
если D > 0 то
x1 := (-b + sqrt(D)) / (2 * a)
x2 := (-b - sqrt(D)) / (2 * a)
вывод "x1 = ", x1, нс
вывод "x2 = ", x2, нс
иначе
если D = 0 то
x1 := -b / (2 * a)
вывод "x = ", x1, нс
иначе
вывод "корней нет", нс
все
все
кон</span>
1)3000000:3=1000000 за секунду два сервера
2)1000000:2=500000 за секунду один сервер
3)500000*4=2000000 за секунду четыре сервера
4)2000000*4-8000000 за 4 секунды 4 сервера
Надеюсь помогла
Static void Main(string[] args)
{
int count = 0;
Console.Write("Введите размерность массива: ");
int n = Convert.ToInt32(Console.ReadLine());
int[] mas = new int[n];
Console.WriteLine("Заполните массив: ");
for (int i = 0; i < n; i++)
{
Console.Write("\t{0} элемент массива: ", i + 1);
mas[i] = Convert.ToInt32(Console.ReadLine());
}
for (int i = 0; i < n; i++)
if (mas[i] > 0 && mas[i] \% 2 == 0)
count++;
Console.WriteLine("Из {0} элементов массива {1} элементов являются положительными четными",n,count);
Console.WriteLine("{0}\% элементов являются положительными четными", (double)count/n*100);
Console.ReadLine();
}