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

Question

Начав тренировки спортсмен в первый день пробежал 10 км .

Каждый день он увеличивал на 10% норму от предыдущего дня.

Какой суммарный путь он пробежит за 7 дней?


Надо составить алгоритм

Answer 1

var
  i: integer;
  d,s: real;
begin
  d:= 10;
  s:= 10;
  for i:=2 to 7 do begin
    s:= d*0.1+s;
    d:= s;
    writeln(s:0:2)
  end
end.

Comments

От такую же задачу надо только в Visual Basik! Помогите пожалуйста!