Если убрать во writeln лишнюю закрывающую скобку, то на экране будет выведено
n=6p=96
Объем сообщения I=650 битов
Количество символов K=130
I=К*i => i = I / K = 650/130=5 битов
ответ:5 битов.
1) спам
2) программа
3) сеть
4) атака
Получается слово: пост
var a:array [1..10] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 10 do
begin
z:=random;
b:=random(10);
if z>0.5 then a[i]:=b
else a[i]:=-b;
end;
for i:=1 to 10 do
write(' ',a[i]);
end.
если что то не понятно,спрашивай)
Да! может содержать вложенные каталоги