Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 98 стр.

где n – количество элементов перебора. Используйте подпро-
грамму вычисления факториала.
    Вариант 4
                                1. Имеется квадратный лист
                            бумаги со стороной а. Из листа
                            делается коробка следующим
                            образом: по углам листа выреза-
                            ется четыре квадрата и коробка
                            склеивается по швам. Какова
должна быть сторона вырезаемого квадрата, чтобы коробка
имела наибольшую вместимость? Решить задачу при а = 6 см
и а = 18 см. Решение квадратного уравнения оформите в ви-
де подпрограммы.
    Указания к решению задачи 1.
    Если обозначить через х сторону вырезаемых квадрати-
ков, то получающаяся коробка будет иметь квадратное осно-
вание со стороной а – 2 х и высоту х. Следовательно, вмести-
мость коробки (обозначим ее f (x)) будет равна
              f ( x) = (a − 2 x) 2 x = 4 x 3 − 4ax 2 + a 2 x.
    Далее, из необходимого условия максимума (f'(x) = 0)
получаем уравнение x2 – 8ax + a2 = 0. Решаем полученное
уравнение при соответствующих а и анализируем корни. В
программе предусмотреть анализ корней.
    2. Составить программу, определяющую, как заданная
сумма денег выражается минимальным числом банкнот цен-
ностью по 100, 50, 25, 10, 5, 3, 1 рублей. На печать выводится
количество банкнот каждого вида и общее число банкнот.
Решение оформить в виде подпрограммы.
    3. Вычислите сумму: 1! + 2! + 3! + ... + n!, используя
функцию вычисления факториала числа n!

     Вариант 5
     1. Чего больше: всех возможных трехзначных чисел, за-
писываемых цифрами 1, 2, 3, 4, 5; всех двузначных чисел,
записываемых цифрами 2, 4, 6, 8; всех четырехзначных чи-
сел, записываемых цифрами 1, 3, 7, 8, 9? Подсчет количества

                                   98