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
u
a5
Fórum ➡ DataTable #1's rows that are NOT present in DataTable #2 ♦
type experriment
Math v9.2
Plt-D v.0.8.4
C# - Creating XLS filename from datetime
HawkSearch field naming convention
sdfghnjmkuyhtgrfed
4/03/2017