PascalABC.NET 3.2:
Begin
Write('Sr = ',ReadSeqReal('Введите n чисел:',ReadLnInteger('n = ')).Where(x->x>0).Average)
End.
Turbo/Free/ABC:
Var
A,S:real;
n,k:integer;
Begin
Write('n = ');ReadLn(n);
Write('Введите n чисел: ');
S:=0;
k:=0;
For n:= 1 to n do
Begin
Read(A);
if A > 0 then
Begin
S:=S+A;
k:=k+1
End
End;
WriteLn('Sr = ',S/k);
End.
Program v1;
Var n,k, sum: integer;
Begin
Write ('Введите знаменатель: ');
Readln(n);
Write ('Введите числитель: ');
Readln (k);
Sum := (n div k);
Write(Sum);
End.
337,5 Кб=337,5*1024 байт = 345600 байт
Глубина цвета = 345600/(120*120) = 24 байта.
Формально получилось так. Но это далеко от реальных значений (возможно, что в числовых данных что-то напутано).
1)3000000:3=1000000 за секунду два сервера
2)1000000:2=500000 за секунду один сервер
3)500000*4=2000000 за секунду четыре сервера
4)2000000*4-8000000 за 4 секунды 4 сервера
Надеюсь помогла
Нам известна мощность алфавита N (т.е. количество всех возможных символов) обоих языков, значит мы можем узнать информационный вес (i) одного символа для каждого языка по формуле
.
Для языка Бамбара i=7 бит (
); для языка Мандинго i=6 бит (
).
Узнаем количество информации в сообщении на языке Бамбара: 7*70*25*7= 85 750 бит.
Вычислим количество информации в сообщении на языке Мандинго: 6*70*25*7= 73 500 бит.
Делаем вывод, что сообщение на языке Бамбара несёт больше информации на 12 250 бит (85 750-73 500= 12 250).