Мой богатый дядюшка подарил мне 1 доллар в мой первый день рождения. В каждый следующий...

Question

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

Comments

Сделать прогой или так решить?

---

В паскале нужно

---

Понял

Answer 1

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

Comments

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

---

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

---

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

---

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