ДС
Дмитрий Савушкин
А ну ка напряги мозги и все решишь!
опиши функцию 2^n и в цикле считай
зачем каждый раз вызывать функцию? можно запоминать произвдение на предыдущем шаге
s:=1;
p:=1;
for i:=1 to n do
begin
p:=p*2;
s:=s+p;
end
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.
var n,s:longint; begin readln(n); s:=1; writeln(s shl(n+1)-1) end.