Разработать схему алгоритма и написать программу a) вычисления среднего арифметического четырех чисел; b) вывода вашего роста , возраста и веса на экран4 c) вычисление значения корней квадратного уравнения выполнить трассировку программ.

1. var a, b, c, d: integer; sr: real; begin readln(a, b, c, d); sr : = (a+b+c+d)/4; writeln(sr); end. 2.  beginwriteln('рост: 181'); writeln('вес: 81'); writeln('возраст: 28'); end.3.  vara, b, c, d: integer; x1, x2: real; beginreadln(a, b, c); d : = b*b-4*a*c; if d > 0 thenbeginx1: =(-b+sqrt(d))/(2*a); x2: =(-b-sqrt(d))/(2*a); writeln(x1, ' ', x2); end; if d < 0 thenbeginx1: =-b/(2*a); writeln(x1); end; if d > 0 thenwriteln('корней нет'); end.

1. определим наибольшее натуральное число, куб которого не превышает 2019. ∛2019 ≈ 12.6; отбрасывая дробную часть, получаем 12. 2. выпишем набор натуральных чисел от 1 до 12 и их кубов: 1-1, 2-8, 3-27, 4-64, 5-125, 6-216, 7- 343, 8-512, 9-729, 10-1000, 11-1331, 12-17283. определим при "жадного" алгоритма набор кубов, в сумме 2019 (из 2019 поочередно вычитаем.максимально возможные кубы): 2019-1728=291, 291-216=75, 75-64=11, 11-8=3, а 3 - это три раза по 1. получаются кубы чисел 12, 6, 4, 2, 1, 1, 1 - всего семь чисел.4. попытаемся улучшить найденное решение, отбрасывая те, которые найдут семь и более чисел.если взять число 11³=1331, то 2019-1331=688 и нужно составить его из кубов не более, чем 5 чисел.688-512=176, 176-125=51, 51-27=24 и слишком длинно.688-2×343=2, 2-1=1, 1-1=0 - 4 числа.улучшенное решение: 2019 = 11³+7³+7³+1³+1³ лучшего решения нет.