Изучая язык, студент каждый день учит столько слов, сколько за два предыдущих дня и еще 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.

Дано:
Разрешающая сканера 600 х 600 dpi.
Размер 10см x 15см.
Глубина цвета - 3 байта.

Найти:
Каков информационный объём этого файла?

Решение:
Вначале переводим глубину цвета из байт в биты
3 байта * 8бит в байте = 24 бит

Вычисляем разрешение сканера в 1 дюйме квадрат
600*600 = 360 000 пикселей в 1 дюйм^2

Переводим размер картинки из квадратных сантиметров в квадратные дюймы.
10см = 3.937дюйма
15см = 5,906дюйма
10*15=150 см^2 = 3,937 * 5,906 = 23,25 дюйм^2

Вычисляем количество пикселей в изображении
23,25 дюйм^2 * 360 000 пикселей в 1 дюйм^2 = 8 370 000 пикселей

Информационный объём вычисляем по формуле
количество пикселей * глубину цвета =
8 370 000 пикселей * 24 бит = 200 880 000 бит.

Переводим в байты делением на 8.
25 110 000 байт
или же делим на 1024*1024 чтобы получить количество мегабайт
23,95 Мегабайт

ответ:
Информационный объём сканированного изображения =
25 110 000 байт или 23,95 Мегабайт

Есть кнопочки антена,
Звонит в другом конце света,
Знаменитый, как айфон,
Получается ... (телефон)

Четыре ножки, одна доска,
На нём стихи пишу гордо я!
Его ставят на любой пол,
Это создание называется ... (стол)

Музыка, игры, всё, что желаешь!
Туда и мультфильмы перекачаешь,
Информационного века моды писк,
Иначе зовётся лазерный ... (диск)

Туда запишешь всё, что надо,
Мысли, уроки, рисуй что попало!
В этой брошюрке много страничек,
Что это? Правильно! ... (записная книжка)

Она кликнуть на ссылку,
Она также может скушать весь сыр!
О боже, что это? Чудище кыш!
Живёт в норе, серая ... (мышь)

Мы в понедельник туда все идём,
Много учебников туда принесём!
Наш огород знаний, она прополола,
Наша прекрасная, любимая ... (школа)

P.S. Писал сам