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

Question

Информатика

Арсеня

22 февраля, 01:33

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

+5

Ответы (1)

Знаете ответ на вопрос?

Меркул · Answer 1

var y, i, m, n:integer;

begin;

readln (n) ;

m:=1;

while m<100 do

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