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

Const    d: real = 10; // число км в день    p: real = 1.12; // %    m: integer = 30; // число дней в месяце    n: integer = 25; // макс дистанция в условии var c: integer;     s, x: real; begin    x : = d;     for c : = 1 to  m   do begin        s : = s + x;         x : = x * p;     end;     writeln('в месяц пробегает: ', s);           x : = d; c : = 0;     while (x < n) do begin        c : = c + 1;         x : = x * p;     end;     writeln('нужно ', c, ' дней'); end.

//pascal abc.net 3.1 сборка 1219 function fibonachi(i: integer): integer;   begin   if i=0 then fibonachi: =0 else   if i=1 then fibonachi: =1 else   fibonachi: =fibonachi(i-1)+fibonachi(i-2);   end; var   i,j,k: integer;   b: boolean; begin i: =1; while fibonachi(i)< 32000 do begin   b: =false;   for j: =2 to i div 2 do   if i mod j=0 then b: =true;   if (b=false) and (fibonachi(i)> =2) then inc(k);   inc(i); end; writeln(k); end.

Uses   crt; const   n = 10; type   v = array[1..n] of integer; function mid(var a: v): double; var   i, s: integer; begin   s : = 0;   for i : = 1 to n do s : = s + a[i];   mid : = s / n end; var   x: v;   i, j: integer;   m: double; begin   randomize;   m : = 0;   for i : = 1 to 5 do   begin       writeln('элементы массива ', i);       for j : = 1 to n do       begin           x[i] : = random(100);           write(x[i]: 3)       end;       writeln;       m : = m + mid(x)   end;   writeln('среднее арифметическое пяти массивов равно ', m) end. тестовое решение: элементы массива 1   95 44 54 86 52 39 28 79 29 43 элементы массива 2   75 55 26 22 12 93 34 60 34 42 элементы массива 3   55 80 50 54 52 46 85 47 11 86 элементы массива 4   33 35  5 64 36 66 76 55 24 43 элементы массива 5   31 63 66 11 88  4 31 99 28 39 среднее арифметическое пяти массивов равно 76.6