Масив А[1..5] заповнено числами 3, 8, 5, 7, 6. Виконайте дії з елементами масиву: а) S:= 0; For i:= 1 to 5 do S:= S + A[i];
б) P := 1; For i := 1 to 5 do If A[i] <= 5 Then P := P * A[i];
в) K := 0; For i = 1 to 5 do If A[i] > 5 Then K:= K + 1;​

1) ответ:

2^i=n

2^i=32

i=5

один символ=5 бит

2) 64=2⁶

следовательно ,требуется 6-разрядный двоичный код

3) 2^i=n, n = 16

2^i=16

i=4 бит

50 * 4 = 200 бит

200: 8 = 25 байт

4) используем формулу 2^i=n. так как в алфавите 16 символов (n=16), то  2^i=16, следовательно i=4. 4 бита весит один символ. 384*4=1536. 1536 бит весит сообщение из 384 символов по 4 бита каждый. переводим биты в байты. 1 байт=8 бит, 1536/8=192 байта. переводим байты в килобайты. 1 килобайт=1024 байт. 192/1024=0,1875 килобайт весит все сообщение. так что лучше ответ оставить в байтах (192 байта).

Procedure GetAB(x: integer; var a: integer; var b: integer);
begin
    a := 0;
    b := 1;
    while x > 0 do
    begin
        a := a + 1;
        b := b * (x mod 100);
        x := x div 100;
    end;
end;

var
    x, a, b: integer;

begin
    for x := 10000 to 2000000000 do
    begin
        GetAB(x, a, b);
        if (a = 3) and (b = 18) then
            Println(a, b, x);
    end;
end.

выдает такие значения
3 18 10118
3 18 10209
3 18 10306
3 18 10603
3 18 10902
3 18 11801
3 18 20109
3 18 20303
3 18 20901
3 18 30106
3 18 30203
3 18 30302
3 18 30601
3 18 60103
3 18 60301
3 18 90102
3 18 90201
3 18 180101

Выделенное наибольшее