Один богатый дядюшка подарил племяннику 1 доллар в его первый день рождения. В каждый...

Question

Один богатый дядюшка подарил племяннику 1 доллар в его первый день рождения. В каждый следующий день рождения он удваивал подарок и прибавлял к нему столько долларов ,сколько лет исполнялось мальчику. Сосчитать,сколько подаренных денег накопиться к 18-летию мальчика

Answer 1

Var i,p,s:integer;
begin
p:=1; s:=1;
for i:=2 to 18 do
 begin
 p:=p*2;
 s:=s+p+i;
 end;
writeln('s = ',s);
end.

Результат:
s = 262313