Определить пробег лыжника за второй, третий день - Pascal ABC

Формулировка задачи:

Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. Определить: Пробег лыжника за второй, третий, …, десятый дни тренировок; Какой суммарный путь он пробежал за первые 7 дней тренировок. pascal

Код к задаче: «Определить пробег лыжника за второй, третий день - Pascal ABC»

textual
var
p,s:double;
i:integer;
begin
p:=10;
for i:=1 to 10 do
  begin
  if i<=7 then
    s:=s+p;
  if i>1 then
    writeln(i,'-',p:0:2);
  p:=p*1.1;
  end;
writeln('total - ',s);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 4.200 из 5


СДЕЛАЙТЕ РЕПОСТ