25 сообщения в whats app серёжа пишет 40 сообщений в день в whats app. каждое сообщение содержит 100 символов. объём всех сообщений, которые серёжа отправляет за один день, равен 8000 байт. вопрос 1. сколько бит необходимо для кодирования одного символа в серёжиных сообщениях? в ответе запишите только одно число без добавления единиц измерения. вопрос 2. сколько секунд потребуется для передачи двух фотографий, каждая из которых имеет информационный объём равный 3, 2 мбайт, если известно, что скорость интернета у серёжи 32 мбит/c. ответ напишите с точностью до одного знака после запятой, единицы измерения писать не нужно.

Var s,ss,s1,s2: string; p,p1,p2,max,min: integer; begin writeln('введите строку: '); readln(s); ss: =s+' '; max: =0; min: =255; p: =pos(' ',ss); while p> 0 do   begin   if p> max then begin max: =p; s1: =' '+copy(ss,1,p); end;   if p< min then begin min: =p; s2: =' '+copy(ss,1,p); end;   delete(ss,1,p);   p: =pos(' ',ss);   end; s: =' '+s+' '; p1: =pos(s1,s);   p2: =pos(s2,s);   if p1> p2   then begin delete(s,p1,max+1); insert(s2,s,p1); delete(s,p2,min+1); insert(s1,s,p2); end   else begin delete(s,p2,min+1); insert(s1,s,p2); delete(s,p1,max+1); insert(s2,s,p1); end; s: =trim(s); writeln(s); end.  пример: введите строку: поменяйте местами самое длинное и самое короткое слово и местами самое длинное поменяйте самое короткое слово

// pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin   var lvl: =0;   var s: = 'ebeeeeebeeebeeeebeeeeeeebbeeeeeebbebeebbebbebeeeebbbbeebeeeeeeebeebbbeebbbeeeebbeebeeeebbebbbbebebee';   var prede: =false;   foreach var c in s do       if c='e' then begin           if prede then begin prede: =false; lvl+=1 end           else prede: =true           end       else           if c='b' then begin prede: =false; lvl+=1 end;   writeln(lvl,' level') end. результат выполнения программы 63 level и второй вариант, "как не учат в школе": // pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin   var s: = 'ebeeeeebeeebeeeebeeeeeeebbeeeeeebbebeebbebbebeeeebbbbeebeeeeeeebeebbbeebbbeeeebbeebeeeebbebbbbebebee';   writeln(regex.matches(s,'e[eb]|b').count,' level') end. результат выполнения аналогичный.