A, b, c, D : integer; begin Writeln('Введите коэфф-ты а, b и c'); Readln(a,b,c); D = b * b - 4 * a * c; Writeln(D); Readln(); end.
Учтите, что если вам нужна программа для нахождения корней квадратного уравнения, то вам надо проверять все условия. Например, дескриминант может быть равен нулю и тд
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
