Help. belhost. by назначение и страна

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно

в одном байте восемь бит. следовательно 100/8=12.5

  ответ 12.5