Предмет: Информатика,
автор: Аноним
Даны действительные числа a, b, c. Даны действительные числа a, b, c. Найдите все решения квадратного уравнения ax2 + bx + c = 0. Формат входных данных Даны три действительных числа, a не равно 0. Формат выходных данных Выведите два действительных числа, если уравнение имеет два корня, одно действительное число – при наличии одного корня. При отсутствии действительных корней ничего выводить не нужно.ПАСКАЛЬ
Ответы
Автор ответа:
0
var a,b,c:real;
begin
read(a,b,c);
if sqr(b)-4*a*c>0 then write((-b-sqrt(sqr(b)-4*a*c))/(2*a),' ',(-b+sqrt(sqr(b)-4*a*c))/(2*a)) else
if sqr(b)-4*a*c=0 then write(-b/(2*a))
end.
begin
read(a,b,c);
if sqr(b)-4*a*c>0 then write((-b-sqrt(sqr(b)-4*a*c))/(2*a),' ',(-b+sqrt(sqr(b)-4*a*c))/(2*a)) else
if sqr(b)-4*a*c=0 then write(-b/(2*a))
end.
Интересные вопросы
Предмет: Українська мова,
автор: 0kiruxa0
Предмет: Литература,
автор: Аноним
Предмет: Другие предметы,
автор: qwerty69210
Предмет: История,
автор: Anastasia63
Предмет: Математика,
автор: koska03