Изучая язык, студент каждый день учит столько слов, сколько за два предыдущих дня и еще 3 слова дополнительно. каждые 10 дней студент забывает 5 % выученных слов. через сколько дней студент будет знать более 1500 слов, если в первый и во второй день он выучил по 6 слов? написать программу на pascalabc.net
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.