Var
a:array [1..10] of integer;
i,sum,kol:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i] mod 2=0 then sum:=sum+a[i] else kol:=kol+1;
writeln(sum);
writeln(kol);
end.
Один бит информации уменьшает неопределенность в два раза.
0,5кБайт = 512Байт
128бит = 16 Байт
512Байт/16Байт=32
Ответ: Объём первого сообщения в 32 раза больше второго.
1)i:=7;
<span>while i<=8 do begin
writeln('Привет!');
i:=i+1 =8
2)i:=8</span><span>;
<span>while i<=8 do begin
writeln('Привет!');
</span></span><span>i:=i+1 =9
На следующий раз он уже не повторится
Ответ: 7
</span>