Составить задачу в Паскале Начав тренировки лыжник в 1 день пробежал а км. Каждый...

Question

Составить задачу в Паскале
Начав тренировки лыжник в 1 день пробежал а км. Каждый следующий день он увеличивал пробег на b% от пробега предыдущего дня. Найти суммарный путь за n дней тренировок.
Даю максимально очков.

Answer 1

Program pr1;
Uses Crt;
Var
n,i:integer;
a,b,s:real;
begin
ClrScr;
writeln('В 1 день лыжник пробежал ? км:');
readln(a);
writeln('Лыжник увеличивал пробег на ? %:');
readln(b);
writeln('Лыжник бежал ? дней:');
readln(n);
s:=0;
for i:=1 to n do
begin
s:=s+a;
a:=a*(1+b/100);
end;
writeln('Лыжник пробежал всего:',s);
readln;
end.