<span>Найдём информационный объём данной статьи: I = 32 * 32 * 25 * 8 = 2^5 * 2^5 * 25 * 2^3 = 2^(5 + 5 + 3) * 25 = 2^13 * 25 бит. Переведём полученное значение в более крупные единицы измерения информации — килобайты. 2^13 * 25 бит = (2^13 * 25) / (8 * 1024) кбайт = (2^13 * 25) / (2^3 * 2^10) кбайт = (2^13 * 25) / 2^13 кбайт = 25 кбайт. Ответ: I = 25 кбайт.</span>
C8 CD D4 CE D0 CC C0 D2 C8 C7 C0 D6 C8 DF
Учитывая, что тут больше FF не будет (256 символов, включая нулевой), можно убрать пробелы =)
Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=100;
Repeat
S:=S+A;
K:=K+1;
A:=A+10;
Until A>500;
WriteLn('SR = ',K*S);
End.
Const N = 50;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
S:=S+A[i]
End;
WriteLn;
WriteLn('Sr = ',S/N);
End.
Пример:
Исходный массив: 4 2 -2 -4 -7 7 -9 6 -10 10 -4 -4 -5 3 0 -2 -3 0 -4 9 -1 -4 -2 -4 -9 2 2 -10 -8 -2 -8 -7 6 2 -9 7 2 -10 -10 -4 -9 -7 -2 -10 2 1 -3 6 0 0
Sr = -2.04
Function oddcount(ar:array[1..n;1..m] of integer):integer;
var i,j:integer;
begin
result:=0;
for i:=1 to n do
for j:=1 to m do
begin
if odd(ar[i,j]) then
result:=result+1;
end;
writeln(result);
end;
Вот так как-то.