1) Написать программу на языке Паскаль, которая вычисляет среднее арифметическое пяти любых чисел. 2) Написать программу на языке Паскаль, вычисляющую корни квадратного уравнения.

1) Программа на языке Паскаль для вычисления среднего арифметического пяти чисел:

pascal
Копировать код
program Average;
var
  num1, num2, num3, num4, num5: real;
  average: real;
begin
  writeln('Введите пять чисел:');
  readln(num1, num2, num3, num4, num5);
  
  average := (num1 + num2 + num3 + num4 + num5) / 5;
  
  writeln('Среднее арифметическое введённых чисел: ', average:0:2);
end.

В этой программе пользователю предлагается ввести пять чисел. Затем программа вычисляет их среднее арифметическое, суммируя все числа и деля на 5. Результат выводится на экран с точностью до двух знаков после запятой.

2) Программа на языке Паскаль для вычисления корней квадратного уравнения:

pascal
Копировать код
program QuadraticEquation;
var
  a, b, c, discriminant, x1, x2: real;
begin
  writeln('Введите коэффициенты квадратного уравнения (a, b, c):');
  readln(a, b, c);
  
  discriminant := b*b - 4*a*c;  {вычисляем дискриминант}
  
  if discriminant > 0 then
  begin
    x1 := (-b + sqrt(discriminant)) / (2*a);  {первый корень}
    x2 := (-b - sqrt(discriminant)) / (2*a);  {второй корень}
    writeln('Уравнение имеет два разных корня: ', x1:0:2, ' и ', x2:0:2);
  end
  else if discriminant = 0 then
  begin
    x1 := -b / (2*a);  {единственный корень}
    writeln('Уравнение имеет один корень: ', x1:0:2);
  end
  else
    writeln('Уравнение не имеет действительных корней.');
end.

В этой программе пользователь вводит коэффициенты квадратного уравнения $a$, $b$ и $c$. Затем вычисляется дискриминант уравнения. В зависимости от значения дискриминанта программа либо выводит два различных корня, один корень, либо сообщает, что корней нет.