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.