Мой богатый дядюшка подарил мне один доллар на мой первый день рождения. В каждый следующий день рождения он удваивал свой прошлогодний подарок, прибавлял к нему столько долларов, сколько лет мне исполнялось, и полученную сумму дарил мне. Напишите программу, подсчитывающую общую сумму всех денег, подаренных к - му дню рождения. Формат входных данных На вход программе подается единственное число. Это в паскале

Question

Таммо

Информатика

19 февраля, 01:31

Мой богатый дядюшка подарил мне один доллар на мой первый день рождения. В каждый следующий день рождения он удваивал свой прошлогодний подарок, прибавлял к нему столько долларов, сколько лет мне исполнялось, и полученную сумму дарил мне. Напишите программу, подсчитывающую общую сумму всех денег, подаренных к - му дню рождения. Формат входных данных На вход программе подается единственное число. Это в паскале

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Агата Скворцова · Answer 1

Begin

writeln ('Введите возраст в годах');

readln (k);

s : = 1;

total : = 1;

if k = 1 then total : = 1 else

begin

For i:integer : = 2 to k do

begin

s : = 2 * s + 1;

total : = total + s;

end

end;

Writeln ('Общая сумма подаренных долларов составила ', total)

End.