Один символ алфавита племени таки весит 8 бит. сколько символов в алфавите племени? а)128 в)32 б)256 г)8 маша отправила сообщение из 50 символов, записанное буквами из 32 символьного алфавита.какой объем информации оно несет? а)1600 бит б)480 бит в)250 бит г)128 бит вычислите количество информации в контрольной работе на печатном листе бумаги(2сторонняя печать)если на одной стороне умещается 50 строк по 25 символов? а)2, 44 кб б)1, 22 кб в)2400 байт г)1250 байт

1) 256 2)250 бит 3)2,4 кб

Program task1; const   n = 10; var   a : array [1..n] of real;   i, j : integer;   min, k : real; begin   for i: = 1 to n do       readln(a[i]);     min: = a[1];   for i: = 1 to n do       if a[i] < min then       begin           min: = a[i];           j: = i;       end;         k: = a[n];   a[n]: = a[j];   a[j]: = k; end. program task2; const   n = 10; var   a : array [1..n] of integer;   i, j, kol : integer; begin   for i: = 1 to n do       readln(a[i]);     kol: = 0;   for i: = 1 to n do       if a[i] mod 3 = 0 then           inc(kol);   for i: = 1 to n do       if a[i] = kol then       begin           j: = i;           break;       end;   writeln(j); end.

1dim a(10, 5) randomize timer for i = 1 to 10     for j = 1 to 5         a(i, j) = int(rnd * 10)         print a(i, j);         s = s + a(i, j) ^ 2     next j     print , s next iисправленный вариант (предыдущий находил только суммы квадратов элементов). уменьшил размерность массива и значение элементов, что бы через-чур большие числа не появлялисьdim a(3, 3)randomize timerp = 1for i = 1 to 3    for j = 1 to 3        a(i, j) = int(rnd * 5)        print a(i, j);         s = s + a(i, j) ^ 2    next j    p = p * s    printnext iprintprint "p="; p2  dim a(10)randomize timerp = 1for i = 1 to 10    a(i) = int(rnd * 20) - 10    print a(i); " ";     if a(i) > o then        s = s + a(i)        p = p * a(i)        n = n + 1    end ifnext iprintprint "s="; sprint "p="; pprint "kol-vo="; n