Подсчет суммы степеней числа 2 (цикл while/do) - Turbo Pascal

Формулировка задачи:

Нужна помощь, нужно составить программу y:=2^1+2^2+2^3+..2^n при помощи while do

Решение задачи: «Подсчет суммы степеней числа 2 (цикл while/do)»

Листинг программы

var
  n, s, p : longint;
 
begin
  readln(n);
  p := 1; s := 0;
  while n > 0 do
  begin
    p := p * 2;
    s := s + p;
    n := n - 1;
  end;
  writeln(s);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для подсчета суммы степеней числа 2. Переменные в коде объявлены следующим образом:

n - переменная для хранения числа, которое нужно возвести в степень
p - переменная для хранения результата возведения числа в степень
s - переменная для хранения суммы степеней числа 2 Далее следует цикл while/do, который выполняется до тех пор, пока значение переменной n больше 0. Внутри цикла выполняются следующие действия:
p := p * 2 - переменная p умножается на 2
s := s + p - переменная s увеличивается на результат умножения переменной p на 2
n := n - 1 - значение переменной n уменьшается на 1 После завершения цикла значение переменной s выводится на экран с помощью функции writeln. Таким образом, данный код выполняет подсчет суммы степеней числа 2.