Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объем следующего - id772571720210225 от лабтвб 25.02.2021 04:28

Question

Информатика: Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объем следующего высказывания рене декарта в битах: я мыслю, следовательно, существую.

лабтвб · Accepted Answer

Const
n=40;
var
i,s1,s2,k:integer;
s:real;
a:array[1..n] of integer;
begin
Randomize;
Write('Сгенерированный массив: ');
s:=0; s1:=0; s2:=0; k:=0;
for i:=1 to n do begin
    a[i]:=Random(21);
    Write(a[i],' ');
    if a[i] mod 2<>0 then begin s:=s+a[i]; Inc(k) end;
    if a[i]<=10 then s1:=s1+a[i];
    if a[i] mod 3=0 then s2:=s2+a[i]
    end;
Writeln;
Writeln('Ср.арифм.нечетных = ',s/k);
Writeln('Сумма не больших 10 = ',s1);
Writeln('Сумма кратных 3 = ',s2)
end.

Пример выполнения программы
Сгенерированный массив: 14 19 1 5 0 2 1 3 2 15 5 3 18 0 4 12 5 0 9 2 14 7 18 13 0 16 9 15 19 14 13 13 16 16 1 16 14 2 1 1
Ср.арифм.нечетных = 7.9
Сумма не больших 10 = 63
Сумма кратных 3 = 102

MOGZ ответил