Вычислите значение выражений: 1. odd(6) 2. odd(3) 3. succ(10) 4. pred(7) 5. sqr(2) 6. sqrt(16) 7. trunc(6.9); round(6,9); int(6.9); 8. trunc(-1.8); round(-1.8); int(-1.8);

Решение больше математическое получилось с выводом формулы, там уж сами выберете как вам лучше.
На каждый следующий день спортсмен пробегает в

большее расстояние чем в предыдущий.
Т.е. если обобщить:

Расстояние, которое спортсмен пробегает каждый n-ный день.
В итоге, у нас получилась геометрическая прогрессия, где


Чтобы найти сумму первых n членов геометрической прогрессии:

В программе пишем:
_________________________
var
i:integer;
k:double;
begin
k:=1.1;
for i:=1 to 6 do k:=k*1.1;
writeln(100*(k-1):0:2);
end.
__________________________

const
    handsfree = false;
    nmax = 100;
    random_min = -50;
    random_max = 50;

var
    a: array[1..nmax] of real;
    i, n, j: integer;
    temp: real;

begin
    {ввод массива}
    if handsfree then
        n := random(nmax - 5) + 5
    else begin
        write('n = ');
        readln(n);
    end;
    
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(random_max - random_min) + random_min;
            write(a[i], ' ');
        end
        else
            readln(a[i]);
    end;
    writeln();
    
    {изменение элементов}
    writeln('Число для замены =');
    read(temp);
    writeln('Новые значения:');
    for i := 1 to n do
    begin
        a[i] := temp;
        write(a[i], ' ');
    end;
end.