Мой богатый дядюшка подарил мне один доллар на мой первый день рождения. В каждый следующий день рождения он удваивал свой прошлогодний подарок, прибавлял к нему столько долларов, сколько лет мне исполнялось, и полученную сумму...
Мой богатый дядюшка подарил мне один доллар на мой первый день рождения. В каждый следующий день рождения он удваивал свой прошлогодний подарок, прибавлял к нему столько долларов, сколько лет мне исполнялось, и полученную сумму дарил мне. Напишите программу, подсчитывающую общую сумму всех денег, подаренных к -му дню рождения.
Формат входных данных
На вход программе подается единственное число .
Это в паскале
Гость
Ответ(ы) на вопрос:
Гостьvar
i,s,k,n:integer;
begin
readln(n);
s:=0;k:=0;
for i:=1 to n do
begin
s:=2*s+i;
k:=k+s;
end;
write('Дядюшка подарил ',k,' долларов.');
end.
Не нашли ответ?
Похожие вопросы