Виберіть правильно
записані формули *
=A9+B12
=2A1
=6C+?А
=C6*A8​

Построить схему машинного алгоритма и составить Паскаль- программу решения задачи с оператора выбора Case по варианту условия, определяемому номером бригады (табл. 7.1). Необходимые значения селектора n для каждой из ветвей вычислять по формуле, приведенной в 4-й колонке таблицы.

Объяснение:

Построить схему машинного алгоритма и составить Паскаль- программу решения задачи с оператора выбора Case по варианту условия, определяемому номером бригады (табл. 7.1). Необходимые значения селектора n для каждой из ветвей вычислять по формуле, приведенной в 4-й колонке таблицы.

.

.

.

.

дпьащатш

1)
program average;
var
    i: integer;
    answer, S, tmp: real;
begin
    for i := 1 to 5 do
    begin
        readln(tmp);
        S := S + tmp
    end;
    answer := S / 5;
    writeln(answer)
end.
2)
program equation;
var
    A, B, C, D, x1, x2: real;
begin
    writeln('ввеедите коэфициенты квадратного многочлена');
    readln(A);
    readln(B);
    readln(C);
    if A <> 0 then 
    begin 
    D := B*B - 4*A*C;
    if D < 0 then
        writeln('действительных корней нет')
    else if D = 0 then
    begin
        x1 := -B/(2*A);
        writeln('Единственный корень: ',x1)
    end else
    begin
        x1 := (-B + sqrt(D)) / (2*a);
        x2 := (-B - sqrt(D)) / (2*a);
        writeln('Два корня: ',x1,', ',x2)
    end;
    end
        else writeln('старший коэфициент не может равняться 0')
end.