Question

Turbo Pascal Cпортсмен в первый день пробежал X км. Каждый следующий день он пробегал на H км. больше, чем в предыдущий. За сколько дней он пробежит N км.?

Answer 1

Var
i:integer;
x,h,n:real;
begin
writeln('Введите x,h и n');
readln(x,h,n);
while x<n do 
begin
x:=x+h;
i:=i+1;
end;
writeln('за ',i,' дней');
end.

Answer 2

Чтобы решить эту задачу, можно использовать цикл в программе на Turbo Pascal.

Например, можно написать следующий код:

program RunningDistance;

var
  X, H, N, distance, day: integer;

begin
  writeln('Введите дистанцию, которую спортсмен пробежал в первый день (X км): ');
  readln(X);
  writeln('Введите на сколько километров спортсмен увеличивает дистанцию каждый следующий день (H км): ');
  readln(H);
  writeln('Введите общую дистанцию, которую спортсмен должен пробежать (N км): ');
  readln(N);

distance := X;
  day := 1;

while distance < N do
  begin
    distance := distance + H;
    day := day + 1;
  end;

writeln('Спортсмен пробежит ', N, ' км за ', day, ' дней.');
end.

Этот код позволяет пользователю ввести начальную дистанцию спортсмена (X), увеличение дистанции каждый день (H) и общую дистанцию, которую спортсмен должен пробежать (N). Затем программа использует цикл while для расчета количества дней, за которые спортсмен пробежит общую дистанцию N. В конце программа выводит результат на экран.

Таким образом, можно использовать Turbo Pascal для решения данной задачи.