Начав тренировки спортсмен в первый день пробежал 10 км . каждый день он увеличивал на 10% норму от предыдущего дня. какой суммарный путь он пробежит за 7 дней? надо составить алгоритм

Var   i: integer;   d,s: real; begin   d: = 10;   s: = 10;   for i: =2 to 7 do begin     s: = d*0.1+s;     d: = s;     writeln(s: 0: 2)   end end.

Var  a,i,s,r,j,t,x,eps: real; function v(x,eps: real): real; begin  i: =1; s: =0; a: =1; t: =1; r: =1;   while abs(sin(x)-s)> eps do begin      while i< =x do begin a: =a*i; r: =r+1 end;   s: =s+t*power(x,i)/a;   t: =-t; a: =1;   i: =i+2  end;   v: =send; begin  read(x);   read(eps);   a: =v(x,eps);   write('sinx=',sin(x));   write('по формуле ',a);   write('количество итераций',i); end.

Будем считать, что появление символов равновероятно. первое сообщение содержит х символов, тогда второе сообщение содержит 2,5х символов. т. к. количество информации (i), которое содержит сообщение, закодированное с знаковой системы, равно количеству информации, которое несет один символ (i), умноженному на число символов в сообщении, то: i = x*i1 i = 2,5x*i2 а т. к. количество информации у нас одинаково, то: x*i1 = 2,5x*i2 i1 = 2,5*i2 2*i1 = 5*i2 а т. к. нам известно, что мощность каждого алфавита не превышает 32, то количество информации, которое несет один символ (i) вычисляется по фомуле: i < = log2(32). т. к. на каждый символ приходится целое число битов, то i может принимать значения 1, 2, 3, 4, 5 битов. подставляя эти значения в формулу соответствия между количеством информации, приходящимся на один символ для первого и второго алфавита 2*i1 = 5*i2, находим, что i1 = 5 и i2 = 2. следовательно, мощность первого алфавита равна 2^5 = 32 символа, а второго алфавита равна 2^2 = 4 символа.