Ао условию, у тебя два шкафа, в каждом из которых 128 полок, и в этих полках 4 единицы (во всех 128), значит в обоих шкафах 8 единиц, отсюда следует: Максимальное кол-во единиц при 126 полках с нулями и 2 полками с единицами (1111000v000111=1111111 и 0000000v1000000=1000000) т..е. в 3 шкафу будет 126 полок с нулями и 2 полки с 8 единицами. Минимальное кол-во при 127 полками нулей и 1 полкой единиц (1111000v1111000=1111000) т.е. в 3м шкафу будет 127 полок с нулями и 1 полка с 4 единицами. Значит максимум 8 единиц, а минимум 4
Procedure GetWord(s:string; var from:integer; var w:string; var len:integer); { Ищет в строке s слово, начиная с позиции from. Если слово w найдено, from будет указывать на его начало, а в len будет находиться длина эого слова. если слово не найдено, w='', len=0 Слова раздеяются минимум одним пробелом, за исключением первого и последнего слова, у которых пробел может находиться только с одной стороны. } var i,n:integer; stop:Boolean; begin n:=Length(s); i:=from; stop:=false; while (i<=n) and (not stop) do if s[i]=' ' then Inc(i) else stop:=true; if i>n then begin len:=0; w:='' end else begin from:=i; stop:=false; while (i<=n) and (not stop) do if s[i]<>' ' then Inc(i) else stop:=true; if i>n then len:=n-from+1 else len:=i-from; w:=Copy(s,from,len) end end;
var s1,wd,wdmax:string; ic,L,Lmax:integer;
begin Write('Введите строку: '); Readln(s1); ic:=1; Lmax:=0; repeat GetWord(s1,ic,wd,L); if (L>0) and (L>Lmax) then begin Lmax:=L; wdmax:=wd end; ic:=ic+L+1 until L=0; Writeln('Самое длинное слово "',wdmax,'" длины ',Lmax) end.
Тестовое решение: Введите строку: Это пример тестовой строки с произвольным числом пробелов. Самое длинное слово "произвольным" длины 12
2*4/8 + 3