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

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.