Кто-нибудь может подсказать команду для программы логомиры, для покачивания водорослей.

72 Кб

Объяснение:

1) Определим сколькими битами кодируется отдельный символ, т.е. найдем информационный вес символа.

По формуле  , где N - мощность алфавита, i - информационный вес символа алфавита.

(бит)

2) Информационный объем или количество информации находят по формуле , где K - количество символов, i - информационный вес символов.

K = 16*16*256 (симв.) - умножили количество символов на количество строк и получаем количество символов на одной странице, тогда чтобы найти количество символов в книге нужно домножить на количество страниц.

I = 16*16*256*9 = = (бит)

3) Переведем биты в килобайты, Кб.

1 байт = 8 бит

1 Кб = 1024 байт

1 Кб = 1024 байт = 1024*8 бит = (бит)

Тогда для перевода нужно I =   разделить на :

(Кб)

Var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;
    
    while i < 7 do
    begin
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    end;
    
    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;
    
    repeat
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    until i >= 7;
    
    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    n := n + (n + 1) mod 2;
    s := 0;
    
    for i := 1 to 7 do
    begin
        s := s + n;
        writeln(n);
        n := n + 2;
    end;
    
    writeln(s);
end.