Вкодировке кои-8 каждый символ кодируется одним байтом. определите количество символов в сообщении, если информационный объем сообщения равен 256 бит

1символ= 1 байт  1 байт = 8 бит 256 бит / 8 бит = 32 символа

Var   i, k: longint;   s: real; begin   writeln('введите количество членов последовательности k');   readln(k);   s : = 20;   for i : = 1 to k do       s : = s + 1 / (i * k);   writeln('сумма последовательности равна ', s) end. тестовый пример: введите количество членов последовательности k 10 сумма последовательности равна 20.2928968253968 варианты, те же результаты: var   i, k: longint;   s: real; begin   writeln('введите количество членов последовательности k');   readln(k);   s : = 20;   i: =1;   while i< =k do begin       s : = s + 1 / (i * k);       i: =i+1       end;   writeln('сумма последовательности равна ', s) end. var   i, k: longint;   s: real; begin   writeln('введите количестко членов последовательности k');   readln(k);   s : = 20;   i: =1;   repeat       s : = s + 1 / (i * k);       i: =i+1   until i> k;   writeln('сумма последовательности равна ', s) end.

//как- то так: ) проверял так: 5     1 1 5 7 9  => 7  #include "stdafx.h" #include < iostream> using namespace std; int _tmain(int argc, _tchar* argv[]) {     double s, k;       s = 0;       int n;       cout < < "n = "; cin > > n;       for (int i = 1; i < = n; i++)       {           cin > > k;           if (k < = n)               s += k;       }       cout < < "> " < < s < < " < " < < endl;       system("pause");     return 0; }