Решите задачу плиз : Лыжник в первый день пробегае a км каждый следущий день он...

Question

Решите задачу плиз : Лыжник в первый день пробегае a км каждый следущий день он увиличивает расстояние на 5% через сколько дней расстояние удвоится? 24 балла за это

Answer 1

Var a,s:real;k:integer;
begin
readln(a);
s:=a;
k:=0;
while s<2*a do<br> begin
 s:=s*1.05;
 k:=k+1;
 end;
writeln('k = ',k);
end.

Пример:
4
k = 15

Answer 2

В первый день а, во второй 1,05*а, в третий 1,1*а и т.д.
Получается, каждый день коэффициент увеличивается на 0.05.
Нам надо узнать, в какой день будет 2*а.
2 делим на 0.05=40. Ответ: через 40 дней.

Comments

Это нужно составить как цикл с параметром или цикл с пред условием в Паскалем

---

В паскале*