Question

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

Answer 1

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.