Задание:
Помогите пожалуйста составить программу для решения квадратного уравнения. Срочно нужно, будублагодарна.
Решение:
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.
Знаете другой ответ?