программирование. помогите пожалуйста!!!! в паскале

Question

Алёна Валерьевна · Accepted Answer

А ну ка напряги мозги и все решишь!

Альбина Макаренко · Answer

опиши функцию 2^n и в цикле считай

Рамиль · Answer

зачем каждый раз вызывать функцию? можно запоминать произвдение на предыдущем шаге 
s:=1; 
p:=1; 
for i:=1 to n do 
begin 
p:=p*2; 
s:=s+p; 
end

Аннушка Темная · Answer

program Project1; 
 
{$APPTYPE CONSOLE} 
 
uses 
 SysUtils; 
var n,i:integer; 
summ:real; 
begin 
 { TODO -oUser -cConsole Main : Insert code here } 
 
 writeln('Enter stepen n:'); 
 readln(n); 
 summ:=0; 
 i:=1; 
 for i:=1 to n do summ:=summ+power(2,i); 
 summ:=summ+1; 
 writeln('Otvet:',summ:2:0); 
 readln; 
end.

Gevorg Azatyan · Answer

var n,s:longint; begin readln(n); s:=1; writeln(s shl(n+1)-1) end.