Лыжник начал тренировку с 10 км, каждый день он увеличивал дистанцию на 12% от предыдущей, сколько км лыжник пройдёт за месяц, то есть за 31 день цикл работа на паскаль

// pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 // внимание! если программа не работает, обновите версию! begin   var (p,s): =(10.0,10.0);   for var i: =2 to 31 do begin       p*=1.12; s+=p       end;   writeln(s: 0: 1) end. результат 2712.9

1) неопределенность знаний n = 64 - 32 = 32;

2) i = log232 = 5 бит - количество информации;

3) количество бит соответствует количеству вопросов.

ответ: 5 вопросов.

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

 

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.