Напишате программу вычмсления значения выражения с использованием наименьшего количества операторов: x 1,2 = (-b+-rкорень из b2-4ac) / 2a

Question

Информатика

Асаф

2 августа, 15:55

Напишате программу вычмсления значения выражения с использованием наименьшего количества операторов: x 1,2 = (-b+-rкорень из b2-4ac) / 2a

+4

Ответы (1)

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

Ола · Answer 1

Program xx;

var a, b, c, x:real;

begin

readln (a, b, c) ;

x: = (- (b) + sqrt (sqr (b) - (4*a*c))) / (2*a) ;

writeln ('x1 = ', x:2:2) ;

x: = (-b-sqrt (sqr (b) - 4*a*c)) / (2*a) ;

writeln ('x2 = ', x:2:2) ;

end.