Question

Напишите пожалуйста программу, которая вычислит корни квадратного уравнения.а,b,c вводим с клавиатуры. (на паскале)

Answer 1

Program abc;
Uses CRT;
Var : a,b,c, : integer;
P,s : réal;
Begin
Writeln (" введите значения а, b , c);
Redln (a,b,c);
p:=(a+b+c)/2;
writeln(p);
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(S);
end.

Answer 2

все что после begin, заменить на то что тут написанно!!! и в описании p,s заменить на x1,x2,d !!! d:=sqrt(b*b-4*a*c); x1:=(-b+d)/(2*a); x2:=(-b-d)/(2*a); writeln('x1 = ', x1, '; x2 = ', x2); end.