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