Спортсмен, начав тренировки, в первый день пробежал 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.

напишем программу  "kvur.c"  для вычисления корней квадратного уравнения общего вида:   ax2  + bx +c = 0.        #include < stdio.h>       #include < windows.h>       #include < conio.h>       #include < math.h>       /*вычисление корней квадратного уравнения*/      main()      {      float a, b, c, d, x1, x2;       char str[50];       //очистить экран      textbackground(4);       textcolor(15);       clrscr();       //ввод коэффициентов a, b, c      chartooem("введите коэффициенты a, b, c\n", str);       printf(str);       scanf("%f %f %f", & a, & b, & c);       //вычисление дискриминанта d      d=b*b - 4*a*c;       if (d< 0) {      chartooem("действительных решений нет", str);       printf(str);       }      else {      // вычисление корней уравнения x1 и x2      x1=(-b - sqrt(d))/(2*a);       x2=(-b + sqrt(d))/(2*a);       // вывод корней уравнения x1 и x2      chartooem("\n x1=%f x2=%f", str);       printf(str, x1, x2);       };       // конец программы      chartooem("\nдля выхода нажмите любую клавишу", str);       printf(str);       getch();       }