Помогите пожалуйста составить программу для решения квадратного…

Question

Помогите пожалуйста составить программу для решения квадратного уравнения. Срочно нужно, будублагодарна.

Answer 1

35

znlena

23 марта 2023

Var a,b,c,y1,y2,d,i: real; beginread (a,b,c); d: =b*b-4*a*c; if d>0 thenbeginy1: =(-1*b+sqrt (d) / (2*a); y2: =(-1*b-sqrt (d) / (2*a); writeln (y1); writeln (y2); end elseif d=0 thenbeginy1: =(-1*b) / (2*a); writeln (y1); end else writeln ('Корней нет'); end.

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

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

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

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

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