а) Результат: Корни уравнения: X1=-0.8 X2=2
б) Результат: Корень уравнения: X=5
в) Корней не будет, если значение переменной d будет меньше нуля.
Возьмем предыдущие коэффициенты 1, -10, 25 и увеличим последний на единицу: 1, -10, 26. При вводе таких коэффициентов, d будет меньше нуля, и программа выведет "Корней нет".
г) В программе участвуют 7 переменных (a, b, c, d, x, x1, x2) вещественного типа real.
Задание на оценку "3"
var Z: integer;
begin
write('Введите Z: ');
readln(Z);
write('Это число ');
if Z > 0 then writeln('положительное')
else
if Z < 0 then writeln('отрицательное')
else
writeln('равно нулю');
end.
Отладка:
Ввод: -5
Вывод: "Это число отрицательное"
Ввод: 0
Вывод: "Это число равно нулю"
Ввод: 256
Вывод: "Это число положительное"
Ввод: 10455
Вывод: "Это число положительное"