Question

Начав тренировки, лыжник в первый день пробежал А км. Каждый следующий день он увеличивал пробег на 5% от пробега предыдущего дня. Определить, через сколько дней его суммарный пробег достигнет В км. Pascal

Answer 1

Попробуй поворочать этот вариант; не гарантирую, что он совсем уж правильный:

program Hello;

var a,b:real; d:integer;

begin

   writeln('Введите проход за первый день. . .');

   readln(a);

   writeln('Введите суммарный проход. . .');

   readln(b);

   d := 1;

   while a < b do begin

                   a := a + a + a*0.05;

                   d := d + 1;

                  end;

   writeln('Потребовалось ' , d , ' дней.');                

end.

Answer 2

Для решения данной задачи можно использовать цикл, чтобы постепенно увеличивать пробег и отслеживать количество дней, пока суммарный пробег не достигнет заданного значения В.

Вот пример решения на языке программирования Pascal:

pascalCopy code
program SkiRunner;

var
  A, B, totalDistance: real;
  days: integer;

begin
  // Вводим начальный пробег А и желаемый пробег В
  write('Введите начальный пробег А (в километрах): ');
  readln(A);
  write('Введите желаемый пробег В (в километрах): ');
  readln(B);

  // Инициализируем переменные
  totalDistance := A;
  days := 1;

  // Увеличиваем пробег на 5% каждый день до достижения желаемого пробега
  while totalDistance < B do
  begin
    totalDistance := totalDistance + (totalDistance * 0.05);
    days := days + 1;
  end;

  // Выводим результат
  writeln('Суммарный пробег достигнет ', B:0:2, ' км через ', days, ' дней.');
end.

В этом примере мы сначала запрашиваем у пользователя начальный пробег А и желаемый пробег В. Затем мы используем цикл while, чтобы постепенно увеличивать пробег на 5% каждый день до достижения или превышения заданного пробега В. При каждой итерации мы увеличиваем totalDistance на 5% от предыдущего значения. Когда totalDistance становится больше или равным B, цикл завершается, и мы выводим результат - количество дней, через которое суммарный пробег достигнет или превысит B.