Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
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.
Double Jump and Wall Jump
factorial ncr
Tree Node Sample
Vídeo01 - Classe e Método
Lab8
Problem: binary
Reverse a String Using Hash Function
decimal to binary conversion
Testing for Integers and Floats in a String
фабрика статик
stackse - search stackoverflow differently
Please log in to post a comment.