A = 6 b = 7 C = a b print ( 6 · 7 = , c) 6.7 = 42 O с O 6.7 = 42 O 6.7 O 42помргите у меня сор - id1728244220230311 от калина007 11.03.2023 16:14

Question

Информатика: A = 6 b = 7 C = a b print ( 6 · 7 = , c) 6.7 = 42 O с O 6.7 = 42 O 6.7 O 42помргите у меня сор​

калина007 · Accepted Answer

//PascalABC.NET 3.1 сборка 1200
var
    a, b, c, d, x: real;
    x2: array[1..2]of real;
    i: integer;

begin
    readln(a, b, c);
    d := b * b - 4 * a * c;
    if d < 0 then begin
        writeln('Сложные комплексные корни');
        halt;
    end;

    d := sqrt(d);
    x2[1] := (-b + d) / 2 / a;
    x2[2] := (-b - d) / 2 / a;

    for i := 1 to 2 do
    begin
        x := sqrt(abs(x2[i]));
        if x2[i] >= 0 then
            writeln('x[', 2 * i - 1, '] = ', x, ' x[', 2 * i, '] = ', -x)
        else
            writeln('x[', 2 * i - 1, '] = ', x, 'i x[', 2 * i, '] = ', -x, 'i');
    end;
end.

A = 6 b = 7
C = a b
print ("6 · 7 = ", c)
"6.7 = 42"
O
с
O 6.7 = 42
O 6.7
O 42помргите у меня сор

MOGZ ответил

A = 6 b = 7C = a bprint ("6 · 7 = ", c)"6.7 = 42"OсO 6.7 = 42O 6.7O 42помргите у меня сор​

MOGZ ответил

A = 6 b = 7
C = a b
print ("6 · 7 = ", c)
"6.7 = 42"
O
с
O 6.7 = 42
O 6.7
O 42помргите у меня сор