aX2+ bX + c = 0
Алг КWYR (вещ a.b,c,x1,x2,x, лит y)
арг a.b,c
рез x1,x2,x,y
Нач
Цел D
D:=b*b-4*a*c
Если D>0 то y:=”Ур. имеет 2 корня”
X1:=(-b+√D)/2*a
X2:=(-b-√D)/2*a
иначе y:=”Ур. не имеет корней”
все
Если D=0 то y:=”Ур. имеет 1 корень”
X:=(-b)/2*a
Кон
aX2+ bX + c = 0
Алг КWYR (вещ a.b,c,x1,x2,x, лит y)
арг a.b,c
рез x1,x2,x,y
Нач
Цел D
D:=b*b-4*a*c
Если D>0 то y:=”Ур. имеет 2 корня”
X1:=(-b+√D)/2*a
X2:=(-b-√D)/2*a
иначе y:=”Ур. не имеет корней”
все
Если D=0 то y:=”Ур. имеет 1 корень”
X:=(-b)/2*a
все
Кон