Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
1 -5 6 x1=3 x2=2
Var a, b, c, d: real; begin write('Введите коэффициенты a,b,c '); readln(a, b, c); d := sqr(b) - 4 * a * c; if d = 0 then writeln('Корень один x = ', (-b / (2 * a)) else if d >0 then writeln('x1 = ',(-b + sqrt(d)) / (2 * a), ' x2 = ',(-b - sqrt(d)) / (2 * a)) else writeln('Действительных корней нет'); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Create Sealed Class Object & call sealed method with non sealed class
ERGDV CSXDXS
tester of xpath
Full text search using Linqdb
asdxscddasdcf
Test LINQ Anagrafica
math 10.98
Hello
AAAXACAdxcd
normalised pagination
Please log in to post a comment.