Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- a,b,c ,d,x1,x2, ans:real;
- begin
- read(a,b,c);
- d:=b*b-4*a*c ;
- if(d<0)
- then begin
- write('no');
- end else begin
- if(d=0)
- then begin
- x1:=-b/(2*a);
- writeln(x1:2:2);
- ans := a * x1 * x1 + b * x1 + c;
- writeln(ans:2:2);
- end else begin
- x1:=(-b+sqrt(d))/2*a;
- x2:=(-b-sqrt(d))/2*a;
- writeln(x1:2:2, ' ', x2:2:2);
- ans := a * x1 * x1 + b * x1 + c;
- writeln(ans:2:2);
- end;
- end;
- readln();
- readln();
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement