Question

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

Answer 1

Ответ:

program walk;

var ST: integer;

var T: integer;

var i: integer;

var all_: integer;

begin

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

  readln(ST);

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

  readln(T);

  for i:=1 to T-1 do begin

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

      all_ += i*ST;

  end;

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

end.

Answer 2

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

pascalCopy code
program TreeWalk;
var
  N, A, treeNumber: Integer;
  totalSteps: Integer;
begin
  Write('Введите количество деревьев (N): ');
  ReadLn(N);

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

  totalSteps := 0;

  WriteLn('Расстояния от первого дерева до каждого дерева:');
  for treeNumber := 2 to N do
  begin
    totalSteps := totalSteps + A;
    WriteLn('От 1 до ', treeNumber, ' дерева:', totalSteps, ' шагов');
  end;
end.

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