Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

var y,i,m,n:integer;
begin;
readln(n);
m:=1;
while m<100 do<br>begin;
inc(y);
m:=m*2+y;
end;
write(y+1);
m:=0;
writeln;
for i:=1 to n do
begin;
m:=m*2+i;
writeln('y=',i,' m=',m);
end;
end.

y=1 m=1
y=2 m=3
y=3 m=8
y=4 m=19
y=5 m=42
y=6 m=89
7