Turbo Pascal. Спортсмен пробежал 10 км в первый день.Каждый следующий день он увеличивал...

Question

Turbo Pascal.


Спортсмен пробежал 10 км в первый день.Каждый следующий день он увеличивал норму на 10% от нормы предыдущего дня. Определить:
a) Через сколько дней он будет пробегать не более 20 км?
б) Сколько километров он пробежит на 7-ой день?

Answer 1

var k,L,N:real;
i:integer;
begin
read(L);
read(N);
k:=0.0;
for i:=1 to N do begin
k:=k+L;
L:= L*1.1;
end;
writeln(k);
end.

на C/C++

int main()
{
double k=0.0, L, N;
std::cin>>L>>N;
for(int i=0; i {
k += L;
L *= 1.1;
}
cout<<k;</p>