Поделитесь своими знаниями, ответьте на вопрос:
Решите задачи. 6. Какова мощность алфавита с которого записано сообщение содержащее 2048 символов если его объем составляет 1.25 Кбайта. 7. Ста¬тья, на¬бран¬ная на ком¬пью¬те¬ре, со¬дер¬жит 48 стра¬ниц, на каж¬дой стра¬ни¬це 40 строк, в каж¬дой стро¬ке 40 сим¬во¬лов. Опре¬де¬ли¬те раз¬мер ста¬тьи в ко¬ди¬ров¬ке КОИ-8, в ко¬то¬рой каж¬дый сим¬вол ко¬ди¬ру¬ет¬ся 8 би¬та¬ми. ответ запишите в Кбайтах. 8. Даны запросы к поисковой системе. Расположите обозначения запросов в порядке убывания количества страниц, которые найдет поисковый сервер по каждому запросу. Решите задачу с кругов Эйлера. ответ запишите в виде последовательности соответствующих букв. а) Информатика & уроки &Excel b) Информатика | уроки | Excel | диаграмма с) Информатика | уроки | Excel d) Информатика | Excel
var b:array [1..20] of real;
x,min,max:integer;
sum,pr,t:real;
begin
sum:=0; pr:=1;
for x:=1 to 20 do
begin
write('b[',x,']:'); readln(b[x]);
if b[x]<0 then pr:=pr*b[x];
end;
for x:=1 to 5 do
sum:=sum+b[x];
min:=1; max:=1;
for x:=1 to 20 do
begin
if b[x]<b[min] then min:=x;
if b[x]>b[max] then max:=x;
end;
t:=b[min];
b[min]:=b[max];
b[max]:=t;
for x:=max to 19 do
b[x]:=b[x+1];
for x:=1 to 19 do
write(b[x]:3:0);
writeln;
writeln('SUM:',sum); writeln('PROIZVEDENIE:',pr);
end.