Question

Система аутентификации при первом ошибочном наборе пароля формирует задержку в 1 секунду перед разрешением следующей попытки. После второй ошибки задержка составит 2 секунды, после третьей — 4 секунды, после четвертой — 7 секунд и т. д.

Какое наибольшее число неверных паролей пользователь сможет ввести за 8-часовой рабочий день (время ввода пароля не учитывается)?

Помогите быстрее пожалуйста. Час остался 

Answer 1

Формула вот такая:
$a_{n+1}= a_{n}+n$
Ответ: 56

var  i,sum,b1,b2:integer;begin  b1:=1;  sum:=1;  while sum<28800 do  begin    inc(i);     b2:=b1+i; {При первом выполнении цикла b2 равно значению второго элемента, поэтому выводится i+1}    inc(sum,b2);    b1:=b2;  end;  writeln(i+1);end.    

Answer 2

var
i,sum,b1,b2:integer;
begin
b1:=1;
sum:=1;
while sum<28800 do
begin
inc(i);
b2:=b1+i;
inc(sum,b2);
b1:=b2;
end;
writeln(i+1);
end.

Answer 3

Не понимаю, почему в комментариях код отображается нормально, а в ответе нет. Так надоело уже :/