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