Var n,i:integer; s:real;
begin
readln(n);
s:=0;
for i:=0 to n do s:=s+1/(2*i+1);
writeln('s = ',s);
end.
Пример:
5
<span>s = 1.878210678210678e+00</span>
Объяснение:
& не стоит у меня, но выполняет свои действия, у себя его ставьте!
Налить в 9литровое
Перелить в 5литровое
Вылить из 5литрового
Перелить в 5литровое
Налить в 9литровое
Перелить в 5литровое
Вылить из 5литрового
Перелить в 5литровое
Вылить из 5литрового
В 9литровом останется 3л
Используем формулу 2^i=N. Так как в алфавите 16 символов (N=16), то 2^i=16, следовательно i=4. 4 бита весит один символ. 384*4=1536. 1536 бит весит сообщение из 384 символов по 4 бита каждый. Переводим биты в байты. 1 байт=8 бит, 1536/8=192 байта. Переводим байты в килобайты. 1 килобайт=1024 байт. 192/1024=0,1875 килобайт весит все сообщение. Так что лучше ответ оставить в байтах (192 байта).