Бесплатный хостинг подходит для
форумов
государственных учреждений
коммерческих компаний
огромных общественных веб - сайтов
​

12 3 4 5 6 7 8 9 10 11 12 13 uses   crt; var   s : real;   i ,n : integer; begin readln (n ); s : = 0; for i : =1 to n do   s : =s + ( exp ( ln (3 ) / exp ( ln (2 ) *i ) ) ); writeln (s /n ); readkey end.

 

2, 3, 6, 18, 108

каждый член последовательности начиная с третьего равен произведению двух предыдущих:

2 * 3 = 6

3 * 6 = 18

6 * 18 = 108

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.

в системе ascii 1 символ кодируется 1 байтом, в юникоде 2 (ну так, к слову)

текст наш состоит из 30 символов (пробелы и знаки припинания тоже считаем), значит он занимает 30 байт = 240 бит