Question

Разработать программу в Pascal решения уравнения, использующую условный оператор.       Ax^2+x+c=0 m=2, n=3

Answer 1

program acxD;
uses crt;
var a,c,D:integer;
    x1,x2:real;
begin
Writeln('Vvedi a,c');
readln(a,c);
D:=1-4*a*c;
if D>0 then begin
writeln('V otvete x1,x2 :');
x1:=(1-sqrt(D))/2*a;
x2:=(1+sqrt(D))/2*a;
writeln('x1=',x1,' x2=',x2);
end;
if D=0 then begin writeln('x1=x2');
x1:=1/2*a;
writeln('x=',x1);
end;
if D<0 then writeln('V otvete pystoe mnojestvo!');
end.