<u>PascalABC.NET 3.4.0, сборка 1677 от 17.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
function CountCond(a:array of real):=a.Where(t->t<a.Average).Count;
begin
var a:=ArrGen(15,i->Cos(5*(i+1))-1/sqrt((i+1)**3+9)); a.Println;
Writeln('Элементов массива, меньших среднего арифметического: ',CountCond(a))
end.
Ответ:
Очевидно что восьмеричная.
Т.к. если складывать поразрядно начиная с младшего разряда
видно что при сложении 6 и 2 переходим в следующий разряд.
Ноль пишем и один в уме.
Далее складываем 4 и 2 и один в уме получаем 7.
Получаем 370 в восьмеричной системе счисления.
Объяснение:
1. А.
2. В.
3. В.
4. N = 2^i.
16 = 2^i.
I = 4 бита.
Ответ: А.
5. Б.
6. А.
7. Б.
8. Г.
9. V = H*T*I*K.
T = V/H*I*K = (60*2^23)/22000*16*2 = 15*2^25/2^5*22000 = 3*2^20/4400 = 3 145 728/4400 ~714,9 секунд ~ 11,9 минут ~ 12 минут.
Ответ: Б.
10. N = 2^i.
N = 2^8.
N = 256.
Ответ: В.
Var
a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
read(a[i]);
end.
1/512 Мбайта = 2 Кбайта = 2048 байт = 2048 символов
Т.е. 1 символ весит 1 байт. В 1 байт помещаются числа от 0 до 255, то есть в алфавите 256 символов.