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

10 Мар 2020 в 19:41
533 +1
0
Ответы
1

program BirthdayGift;

var
i, age, total, gift: integer;

begin
total := 0;

readln(age);

for i := 1 to age do
begin
gift := 2 * total + i;
total := total + gift;
end;

writeln(total);

end.

18 Апр 2024 в 16:20
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир