Run Code
|
API
|
Code Wall
|
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
Get a webpage - the sync way
Scope variables
hacktonxx
MergeSort
Does string contain only digits
Hssbddbsv
NumberToWords C# Structural
45
abababa sub string
Консоль. Депозит