Уран235
Program llalala; Uses crt; Var a,b,c,d,x1,x2,x:real; Begin Clrscr; Readln(a); Readln(b); Readln(c); If a<>0 then Begin d:=b*b-4a*c; If d>=0 then Begin x1:=(-b+sqrt(d))/2*a; x2:=(-b-sqrt(d))/2*a; Writeln('x1=',x1); Writeln('x2=',x2); End; else writeln('Нет вещественных корней'); End; else Begin x:=-c/b; Writeln('x=',x); End; End.
Answers & Comments
Uses crt;
Var a,b,c,d,x1,x2,x:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Readln(c);
If a<>0 then Begin
d:=b*b-4a*c;
If d>=0 then Begin
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
Writeln('x1=',x1);
Writeln('x2=',x2);
End;
else writeln('Нет вещественных корней');
End;
else Begin
x:=-c/b;
Writeln('x=',x);
End;
End.