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

Спасибо! Но можно ли сделать так, чтобы день рождения можно было указывать самому?

Имеется ввиду первый день рождения?

Нет, чтобы число N-ого день рождения можно было вводить с клавиатуры. И программа считала бы всё сразу, и общую сумму денег, и превышает ли сумма подарков 100 долларов

Ладно, я закончил с интересной задачей, можно и поработать над Вашей.

var y,i,m,n:integer;begin;readln(n);m:=1;while m<100 dobegin;inc(y);m:=m*2+y;end;write(y+1);m:=0;writeln;for i:=1 to n dobegin;m:=m*2+i;writeln('y=',i,' m=',m);end;end.y=1 m=1y=2 m=3y=3 m=8y=4 m=19y=5 m=42y=6 m=897