Мой богатый дядюшка подарил мне 1 доллар в мой первый день рождения. В каждый следующий день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет мне исполнилось. Посчитать общую сумму денег, подар...
Мой богатый дядюшка подарил мне 1 доллар в мой первый день рождения. В каждый следующий день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет мне исполнилось. Посчитать общую сумму денег, подаренных к N-ому дню рождения, и указать к какому дню рождения сумма подарки превысит 100 долларов
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы