Задание:
Написать алгоритм и программу квадратного уравнения
Решение:
vara,kd,b,c,x2,x1,d: extended; beginread (a,b,c); d: =-4*a*c; if d>0 thenbegin kd: =sqrt (d); x1: =(-b+kd) /2*a; x2: =(-b-kd) /2*a; end; elsewrite ('Нет корней'); If x1=x2 then write (x1) else write (x1,x2); end.
Знаете другой ответ?