Изучая английский язык, студент каждый день учит столько слов, сколько за два пред

Изучая английский язык, студент каждый день учит столько слов, сколько за два предыдущих дня и еще 3 слова дополнительно. Каждые 10 дней студент забывает 5 % выученных слов. Через сколько дней студент будет знать более 1500 слов, если в первый и во второй день он выучил по 6 слов? Написать программу на PascalABC.NET
Гость
Ответ(ы) на вопрос:
Гость
//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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы