Задача про спортсмена!

[mopugu6565]

*можно и паскаль, и visual basic*
Здравствуйте! Я бы хотел решить задачу про спортсмена, пробегавшего 10 километров во время тренировок.
Каждый второй день (то есть через день) он увеличивал дневную норму на 10% от нормы предыдущего дня.Через сколько дней спортсмен будет пробегать больше 20 км? Сколько он пробежал на 7 день? Какой суммарный путь он пробежит за 30 дней.

вот что получилось, с расчетом суммы за 30 дней, но все равно работает криво

Dim a As Single
        a = 10
        For i = 1 to 30 do
            If (i Mod 2 = 1) Then
                a = a * (100% + 15%) / 100%
            Else
                a = a + a
            End If
       next
        Console.WriteLine(a)

Пожалуйста, оформляйте Ваш код согласно правилам.
Заранее спасибо за помощь!

[Zams]

var d,k:integer;
    s,p:real;
begin
p:=10; //норма в 1й день
s:=10; //путь за 1 день
d:=1;//1 день
k:=0;//20 еще не пробежал
writeln('Пробежал в 1 день 10 км, всего=10 км');
while s<=100 do
 begin
  d:=d+1;
  p:=p*1.1;
  s:=s+p;
  writeln('Пробежал в ',d,' день ',p:0:2,' км, всего=',s:0:2,' км');
  if d=7 then writeln('На седьмой день пробежит ',p:0:3,' км');
  if(s>=20)and(k=0)then
   begin
    writeln('20 км пробежит за ',d,' дн. s=',s:0:3,' км');
    k:=1;
   end;
 end;
end.

[Aleksandr H.]

Сообщение от mopugu6565

Через сколько дней спортсмен будет пробегать больше 20 км? Сколько он пробежал на 7 день? Какой суммарный путь он пробежит за 30 дней.

Какой ответ при а = 10 верный?

[Аватар]

На любой день можно и без цикла считать, примерно как в сложных процентах: a*1.1^(i/2)
i - номер дня от 1. В формуле деление нацело

А чего в условии 10%, а считаешь для 15%?

[mopugu6565]

Сообщение от Zams

var d,k:integer;
    s,p:real;
begin
p:=10; //норма в 1й день
s:=10; //путь за 1 день
d:=1;//1 день
k:=0;//20 еще не пробежал
writeln('Пробежал в 1 день 10 км, всего=10 км');
while s<=100 do
 begin
  d:=d+1;
  p:=p*1.1;
  s:=s+p;
  writeln('Пробежал в ',d,' день ',p:0:2,' км, всего=',s:0:2,' км');
  if d=7 then writeln('На седьмой день пробежит ',p:0:3,' км');
  if(s>=20)and(k=0)then
   begin
    writeln('20 км пробежит за ',d,' дн. s=',s:0:3,' км');
    k:=1;
   end;
 end;
end.

Спасибо вам огромное!

[Zams]

Не за что.

[Serge_Bliznykov]

не, ну так же нельзя!

Zams, а где Вы в своём коде учли условие

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

?!

или это в условии ошибка?
и имелось в виду Каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. ?!

mopugu6565, как правильно звучит условие задачи?