Спортсмен в 1-ый денек пробежал 8 км. Каждый следующий денек он

Спортсмен в 1-ый денек пробежал 8 км. Каждый последующий день он увеличивал дневную норму на 10% от нормы предшествующего денька. Определить, через сколько дней спортсмен пробежит суммарный путь 40 км. Задачка в Pascal

Задать свой вопрос
2 ответа
Var
S,a:real;
k:integer;
Begin
a:=8;
k:=0;
Repeat
k:=k+1;
S:=S+a;
a:=a*1.1;
Until Sgt;=40;
WriteLn('k = ',k)
End.
Var a,s: real;
    i: integer;
begin
  a:=8;
  s:=a;
  i:=1;
  repeat
    i:=i+1;
    a:=a*1.1;
    s:=s+a;
  until sgt;=40;
  writeln(i);
//  через геометрическую прогрессию
//  s:=ln(1.5)/ln(1.1);
//  if frac(s)gt;0 then s:=int(s)+1;
//  writeln(s);
end.




, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт