Составить программу которая находит корни неполного квадратного уравнения

Question

Информатика

Павлуша

21 декабря, 13:42

Составить программу которая находит корни неполного квадратного уравнения

+4

Ответы (1)

Знаете ответ?

Агриппична · Answer 1

Program koren;

var a, b, c, diskr, x1, x2:real;

begin

readln (a, b, c) ;

if a=0 then exit;

diskr:=b*b-4*a*c;

if diskr<0 then exit;

x1: = (-b-sqrt (diskr)) / (2*a)) ;

x1: = (-b+sqrt (diskr)) / (2*a)) ;

writeln (x1, x2) ;

end.