Спортсмен в первый день пробежал 8 км. Каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. Определить, через сколько дней спортсмен пробежит суммарный путь 40 км. Задача в Pascal
Answers & Comments
srzontmp
Var S,a:real; k:integer; Begin a:=8; k:=0; Repeat k:=k+1; S:=S+a; a:=a*1.1; Until S>=40; WriteLn('k = ',k) End.
Answers & Comments
S,a:real;
k:integer;
Begin
a:=8;
k:=0;
Repeat
k:=k+1;
S:=S+a;
a:=a*1.1;
Until S>=40;
WriteLn('k = ',k)
End.