Question

После прошлой прогулки человек смог перейти на новый уровень своих возможностей и стал более выносливым, но он хочет и дальше развиваться, поэтому перешел к следующей прогулке. Теперь перед ним встала задача пройти от первого до N-ого дерева в роще. Между каждым деревом человек проходил одинаковое количество шагов А. Создайте программу, просчитывающую за человека сколько шагов он прошел за время прогулки и сколько шагов он проходил от первого дерева до каждого следующего дерева (от 1до 2 дерева, от 1 до 3, от 1 до 4) ЗАДАЧА В ПАСКАЛЕ

Answer 1

Вот код программы:

program steps;

var A: integer;

var B: integer;

var i: integer;

var all_: integer;

begin

   writeln('сколько шагов между деревьями?:');

   readln(A);

   writeln('сколько деревьев?:');

   readln(B);

   

   for i:=1 to B-1 do begin

       writeln('с ', 1, ' по ', i+1,' дерево ', i*A, ' M');

       all_ += i*A;

   end;

   writeln('всго шагов: ', all_);

end.

P.S. проверить можно на сайте https://www.onlinegdb.com

Answer 2

Конечно, вот пример программы на Pascal, которая решает эту задачу:

pascalCopy code
program TreeWalk;

var
  N, A, treeNumber: Integer;
  totalSteps, stepsToTree: Integer;

begin
  writeln('Введите количество деревьев N:');
  readln(N);

  writeln('Введите количество шагов между деревьями A:');
  readln(A);

  totalSteps := 0;

  for treeNumber := 2 to N do
  begin
    stepsToTree := (treeNumber - 1) * A;
    writeln('Шагов от первого до ', treeNumber, '-го дерева: ', stepsToTree);
    totalSteps := totalSteps + stepsToTree;
  end;

  writeln('Общее количество шагов за прогулку: ', totalSteps);
end.

Эта программа позволяет пользователю ввести количество деревьев N и количество шагов между деревьями A. Затем она вычисляет и выводит количество шагов от первого дерева до каждого следующего дерева, а также общее количество шагов за прогулку.