Информатика. Нужно написать программу, которая решает квадратное уравнение типа ax^2+bx+c=0 Program p2
var a,b,c,d,x1,x2,x:real
begi
writeln ('введите числа a b и c')
readln (a,b,c)
d:=(b*b-4*a*c)
if d>0 the
writeln ('в уравнении 2 корня')
if d=0 the
writeln ('в уравнении 1 корень')
if d<0 then
writeln ('в уравнении нет корней')
if d>0 the
x1:=(-b+sqrt(d))/2*a
x2:=(-b-sqrt(d))/2*a
writeln ('x1=',x1)
writeln ('x2=',x2);
if d=0 the
x:=(-b)/2*a
writeln ('x=',x)
end
Вместо того, чтобы при d>0 показывать x1 и x2, он считает вс
введите числа a b и
1 -8 1
в уравнении 2 корн
x1=
x2=
x=0

Предыдущий
вопрос Следующий
вопрос