Const nx=30;
var a:array[1..nx] of string; p,i,j,n,k:integer; s,d:string;begin
s:='Дана строка символов состоящий из отдельных слов разделенных пробелом';
s:= s + ' Упорядочить слова по длине в убыванию и вывести на печать';
p:=1;while p>0 do begin
i:= i + 1; p:= pos(' ',s);
if p>0 then a[i]:=trim(copy(s,1,p)) else a[i]:=s;writeln(a[i]);Delete(s,1,p);end;
for k:=1 to i do begin
for j:=2 to i do begin
if length(a[j-1]) < length(a[j]) then begin
d:=a[j-1];a[j-1]:=a[j];a[j]:= d;end;end;end;
writeln;
for k:=1 to i do
<span>writeln(a[k]);end.</span>
На столько хватило времени.
Еще можно при помощи макросов автоматизировать ведение базы до 60000 записей
1. 2 во 2 степени=4 это сообщение несет 2 бита. Здесь я не уверена, но думаю верно) Ответ: 2 бита
2. 1 символ весит=8бит=1байт
150*40*60=360000 символов в книге и весит книга 360000 байт можно перевести в Кбайты для удобства для этого нужно 360000/1024=351,5625Кбайт Ответ:351,5625Кбайт
<span>3. 2 в 6 степени = 64, т.е. один символ равен 6 битам . 0.75*1024*8=6144 бита 6144/32=192 бита - одна страница весит 192*6=1152 символа на каждой странице Ответ: 1152 символа</span>
1 - CXLV
2 - CDLXXIII
3 - MMXLVIII