Задание 3 Параграф 22 ГДЗ Семакин 8 класс (Информатика)

Ниже вариант решения задания из учебника Семакин, Залогова 8 класс, Просвещение:

3. Выполните на компьютере все программы, приведённые в данном параграфе.

program task;

var

a, b, c: real; //коэффициенты уравнения

x1, x1, D: real;// корни и дискриминант

begin

writeln(taskВведи коэффициенты уравненияtask);

readln(a, b, c);

if a = 0 then //уравнение линейно

if b = o then

if c = 0 then writeln(taskКорней бесконечное множествоtask)

else writeln(taskКорней не существуетtask)

else writeln(taskЕдинственны корень равен task, -c / b)

else

begin

D := b * b - 4 * a * c;

if D

else if D = 0 then writeln(taskx1=x2=task, -b / (2 * a))

else

begin

x1 := (-b - sqrt(D)) / (2 * a);

x2 := (-b + sqrt(D)) / (2 * a);

writeln(taskx1=task, x1, task x2=task, x2)

end

end

end.