Спортсмен в первый день пробежал 5 км а последующие 9 дней ** 5% больше то предыдущего...

Question

Спортсмен в первый день пробежал 5 км а последующие 9 дней на 5% больше то предыдущего дня. Выведете на экран километраж за каждый день и найдите, сколько спортсмен пробежал за 10 дней.

Comments

в Pascal ABC

Answer 1

Program pr1;
Uses Crt;
Var
n,i:integer;
a,b,s:real;
begin
ClrScr;
s:=5;
a:=5;
for i:=2 to 10 do
begin
a:=a*1.05;
s:=s+a;
end;
writeln('Спортсмен пробежал за 10 дней:',s);
readln;
end.

Comments

извените но в paskal Abc выдает что "неизвестное имя "ClrScr"

---

странно

---

у меня все работает

---

а если без этого попробывать будет работать??

---

тогда еще и Uses Crt; уберите

---

окей