Найти сумму первых 10 последовательных нечетных чисел.

Сумма первых 10 последовательных  нечетных чисел будет равно 100.

Var s,s1: string; i,p: integer; begin writeln('введите строку: '); readln(s); s1: =''; for i: =1 to length(s) do   case s[i] of   ',','.' : s1: =s1+s[i]+' ';   '-'     : s1: =s1+' - ';   else s1: =s1+s[i];   end; p: =pos('   ',s1); while p> 0 do   begin delete(s1,p,1); p: =pos('   ',s1); end; p: =pos(' ,',s1); while p> 0 do   begin delete(s1,p,1); p: =pos(' ,',s1); end; p: =pos(' .',s1); while p> 0 do   begin delete(s1,p,1); p: =pos(' .',s1); end;   writeln(s1); end. пример: введите строку: перед точкой   или   запятой пробела нет   ,но после   -есть   . перед точкой или запятой пробела нет, но после - есть. 

Для начала надо найти iк(обьем 1 книжки) для этого (кол.страниц×кол.строк×кол.символов×чем кодируется 1 символ(1байт=8 бит) iк=1000×100×80×8=64'000'000 бит=8'000'000 байт=7'812.5 килобайт= 7.62 мегабайт.после это iд(обьем жесткого диска)переводим в мегабайты 160гигабайт=163'840 мегабайт, чтобы найти сколько поместится книг нужно (iд÷iк) 163'840÷7.62=21'501.31 округляем получаем 21'501 поместится в жесткий диск. ответ: 21'501 книг поместится в жесткий диск. p.s: знак (') я писал, чтобы легче было распознать число.