Собранные деньги

[nikolay61]

Папа Карло подарил Буратино 1 золотой Цехин на его первый день рождения, а экономный Буратино положил подарок в банке. Каждый следующий год папа Карло удваивал свой предыдущий подарок и прибавлял к нему столько цехинов, сколько лет исполнилось Буратино, а тот, в свою очередь продолжал составлять золотые в банке. На какой N-й день рождения в банке будет не менее S цехинов?
Объяснение: на первый день рождения Буратино подарили один золотой, на второй 2 * 1 + 2 = 4, их стало 5, а на третий 2 * 4 + 3 = 11, и их стало 16> 15.
Код Pascal

program cehiny;
 
uses crt;
var s:real;
n,k,r,i:byte;
BEGIN
write('ввести год рождения n=>');
readln(n);
s:=0;
for i:=1 to n do
begin
k:=n*2;
r:=k+2;  
 s:=k+r;
 s:=s+1;
 end;
 writeln(s:5:0);
 readln
 
END.

второй и третий день получаются, а вот с первым днем проблема

[type_Oleg]

По моему, вообще не то считаете.
Вам надо найти возраст N при котором сумма > S
А вы вычисляете сумму , в возрасте N.

Кстати, я не проверял, правильно сумму считаете или нет.

[nikolay61]

Сообщение от type_Oleg

По моему, вообще не то считаете.
Вам надо найти возраст N при котором сумма > S
А вы вычисляете сумму , в возрасте N.

Кстати, я не проверял, правильно сумму считаете или нет.

Понял, благодарю

[nikolay61]

Судя из того код должен приблизительно таким

program cehiny;
uses crt;
var s,k,i,sum:integer;
BEGIN
    write('введите количество цехинов ');
    readln(s);
    k:=1;i:=1;sum:=k;
    while sum<s do
     begin
      inc(i);
      k:=k*2+i;
      sum:=sum+k;
     end;
    writeln('не менее ',s,' цехинов в банке станет на ',i,' день рождения');
    readln
END.

А можна чтобы когда введешь день рождения программа обсчитала количество цехинов.