Question

Составить задачу в Паскале Начав тренировки лыжник в 1 день пробежал а км. Каждый следующий день он увеличивал пробег на b% от пробега предыдущего дня. Найти суммарный путь за n дней тренировок. Даю максимально очков.

Answer 1

Program pr1;
Uses Crt;
Var
n,i:integer;
a,b,s:real;
begin
ClrScr;
writeln('В 1 день лыжник пробежал ? км:');
readln(a);
writeln('Лыжник увеличивал пробег на ? %:');
readln(b);
writeln('Лыжник бежал ? дней:');
readln(n);
s:=0;
for i:=1 to n do
begin
s:=s+a;
a:=a*(1+b/100);
end;
writeln('Лыжник пробежал всего:',s);
readln;
end.

Answer 2

Программа на языке Паскаль для решения данной задачи может выглядеть следующим образом:

program SkiTraining;

var
  a, b, n, i: integer;
  totalDistance: real;

begin
  // Ввод данных
  writeln('Введите начальный пробег в километрах (а): ');
  readln(a);
  writeln('Введите процент увеличения пробега (b): ');
  readln(b);
  writeln('Введите количество дней тренировок (n): ');
  readln(n);

// Инициализация переменных
  totalDistance := a;

// Вычисление суммарного пути
  for i := 2 to n do
  begin
    totalDistance := totalDistance + (totalDistance * b / 100);
  end;

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

В данной программе пользователь сначала вводит начальный пробег (а), процент увеличения пробега (b) и количество дней тренировок (n). Затем программа вычисляет суммарный путь за n дней тренировок, используя формулу `totalDistance := totalDistance + (totalDistance * b / 100)`, где `totalDistance` - суммарный путь, `b` - процент увеличения пробега, деленный на 100. Результат выводится на экран.

Надеюсь, это поможет вам! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.