Question

Изучая английский язык, студент каждый день учит столько слов, сколько за два предыдущих дня и еще 3 слова дополнительно. Каждые 10 дней студент забывает 5 % выученных слов. Через сколько дней студент будет знать более 1500 слов, если в первый и во второй день он выучил по 6 слов?
Написать программу на PascalABC.NET

Answer 1

//PascalABC.Net 3.1.0.1200
var
    yesterday, before_yesterday, all, this_day, days: integer;

begin
    yesterday := 6;
    before_yesterday := 6;
    all := yesterday + before_yesterday;
    days := 2;
    
    repeat
        days += 1;
        this_day := yesterday + before_yesterday + 3;
        all += this_day;
        if days mod 10 = 0 then all := trunc(all * 0.95);
        
        before_yesterday := yesterday;
        yesterday := this_day;
    until all > 1500;
    
    writeln('days = ', days);
end.