запишем условие: мощность алфавита равна N=256, страниц=3, строк=48, символов=64, I=?
решение: подсчитаем общее количество символов в тексте
К=3*48*64=9216
найдем вес одного символа алфавита
256=2^i, 2^8=2^i, i=8 бит
вычислим информационный объем текста
I=K*i=9216*8=73728 бит=9216 байт
1)См рисунок,он из интернета,ибо я могу нарисовать,но будет криво(
2) путь от диска C:/ до файла. К примеру, файл информатика.docx в папке "Школа" на рабочем столе будет иметь такой путь: C:\Users\%username%\Desktop\Школа\информатика.docx. Это на виндовс
3)
C:\Участники
C:\Конференция\Участники
C:\Конференция\Регионы\Участники
C:\Конференция\Регионы\Списки\Участники
Все просто! Ввод, вывод и память в машине тюринга представляют собой ленту, разделенную на ячейки. в каждой ячейке или символ или она пустая. ПРОЦЕССОР МАШИНЫ СПОСОБЕН ЗА ОДИН РАЗ РАССМОТРЕТЬ ТОЛЬКО ОДНУ ИЗ ЯЧЕЕК. ОН МОЖЕТ СТЕРЕТЬ СИМВОЛ В ЭТОЙ ЯЧЕЙКЕ, ЗАПИСАТЬ ДРУГОЙ, ПЕРЕМОТАТЬ ЛЕНТУ ВПЕРЕД-НАЗАД НА НЕСКОЛЬКО ЯЧЕЕК.<span>
</span>
1)
Program n1;
var a: array[1..10] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
writeln('исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
if a[i]<0 then sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
end.
2)
Program n2;
var a: array[1..10] of integer;
i,k: integer;
begin
randomize;
k:=0;
writeln('исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
write('номера дел на 5: ');
for i:=1 to 10 do if a[i] mod 5=0 then write(i,' ');
end.
Var n,i:integer;
p:real;
begin
write('n = ');
readln(n);
p:=1;
for i:=1 to n do p:=p*(1+1/(i*i));
writeln('p = ',p);
end.
Пример:
n = 5
p = 3.06944444444444