Дана строка, состоящая из слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). вывести строку (в pascal), содержащую эти же слова, разделенные одним пробелом и расположенные в алфавитном порядке.

program slova; usescrt;

varwords : array[1..100] of string; wc : integer; all,currword,tmp : string; i,j : integer;

begin

    clrscr;

    wc : = 1;

    writeln('‚ўґ¤ёвґ б«®ў  : '); // 'введите слова'

    read(all);

    all : = all + chr(32)+ chr(32);

    for i : = 1 to length(all)-1 do      begin

        if ord(all[i]) = 32 then        begin

          if currword < > '' then            begin              words[wc] : = currword;               inc(wc);

              currword : = '';             end;

          continue;

        end else      begin

currword : = currword + all[i];

end;

end;

  for i : = 1 to wc-2 do  for j : = i + 1 to wc-1 do    if words[i] > words[j] then    begin    tmp : = words[i];     words[i] : = words[j];     words[j] : = tmp;     end;

  writeln('ђґ§г«мв  в: '); // 'результат'

  for i : = 1 to wc-1 do    write(words[i] + ' ');

  readln(tmp);   read(tmp);

end.

от +10 до +30 21 значение, n=21

используем формулу n=2^i

тогда i=5бит (с избытком) 1измерение

сделано 27измерений, 27*5=135бит

ответ: 135 бит.

скорость в мб/c 100/8 = 12,5 мб/c

переведем в кб/с = 12,5 * 1024 =   12800 кб/с

тогда время передачи будет равно t= 100/12800 = 0,0078125 секунд