Cоставить программу для решения квадратного уравнения ax^2+bx+c=0

Question

Cоставить программу для решения квадратного уравнения ax^2+bx+c=0

Answer 1

80

september

23 февраля 2023

var a,b,c,d: real; beginreadln (a,b,c); d: =sqr (b) -4*a*c; if d<0 then writeln ('Net kornei'); if d=0 then writeln ('x=',-b/ (2*a); if d>0 then writeln ('x1=', (-b-sqrt (d) / (2*a) ,' x2=', (-b+sqrt (d) / (2*a); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: