Или можно разложить по степеням двойки. вначале пройдемся по ряду. от нулевой степени и до пятой. 19 = и просто преобразуем. где числа, отличные от нуля, - ставим единицы. 10011
Агибалов428
13.06.2020
Просто бери и дели 19 на 2 до конца ответ: 10011
amramzi
13.06.2020
Var s: string; i: integer; begin write('строка: '); readln(s); i: =1; while i< =length(s) do begin if s[i]='-' then begin s: =copy(s,1,i-1)+' '+s[i]+' '+ copy(s,i+1,length(s)-i+3); i: =i+2; end; i: =i+1; end; writeln('новая строка: ',s); end.
Юрьевна174
13.06.2020
Для начала посчитаем сколько символов в твоем предложении (пробелы, знаки препинания, буквы). их там 28 [терпение и труд все перетрут]. как мы знаем, в кодировке unicode - 1 символ занимает 16 бит памяти. умножим 28 символов на 16 и получим 448 бит [28*16=448 бит]. теперь, если это требуется, переведем биты в байты и килобайты. 1 байт памяти занимает 8 бит. делим 448 бит на 8 получаем 56 [448/8=56 байт]. 1 кбайт памяти, в свою очередь, занимает 1024 байт памяти. делим 56 байт на 1024 (советую использовать калькулятор) получаем 0,05 кбайт [56/1024= 0,0546875]. в ответе пишем одно из получившихся значений, которое требуется написать [448 бит или 56 байт или 0,05 кбайт]