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

Question

Информатика

Геннадьич

12 февраля, 07:30

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

+1

Ответы (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