Program Equa_2d;
Var a, b, c, delta : Real;
Begin
Writeln('a = ');
Readln (a);
Writeln('b = ');
Readln (b);
Write ('c = ');
Readln (c);
{équation 1er degré}
If a = 0 Then If b = 0 Then If c = 0 Then Writeln ('IR')
Else Writeln ('{}') Else Writeln ('x = ', -c/b)
Else delta := sqr (b) - 4*a*c;
{solution réelle double}
If delta = 0 Then Writeln ('x1=x2= ', -b/ (2*a))
{deux solutions réelles}
Else If delta > 0 Then
Begin
Writeln ('x1= ', (-b-sqrt (delta))/ (2*a));
Writeln ('x2= ', (-b+sqrt (delta))/ (2*a));
End
Else Writeln ('Deux solutions complexes');
End.
UHJvZ3JhbSBFcXVhXzJkOwpWYXIgYSwgYiwgYywgZGVsdGEgOiBSZWFsOwpCZWdpbgpXcml0ZWxuKCdhID0gJyk7ClJlYWRsbiAoYSk7CldyaXRlbG4oJ2IgPSAnKTsKUmVhZGxuIChiKTsKV3JpdGUgKCdjID0gJyk7ClJlYWRsbiAoYyk7CnvDqXF1YXRpb24gMWVyIGRlZ3LDqX0KSWYgYSA9IDAgVGhlbiBJZiBiID0gMCBUaGVuIElmIGMgPSAwIFRoZW4gV3JpdGVsbiAoJ0lSJykKRWxzZSBXcml0ZWxuICgne30nKSBFbHNlIFdyaXRlbG4gKCd4ID0gJywgLWMvYikKRWxzZSBkZWx0YSA6PSBzcXIgKGIpIC0gNCphKmM7Cntzb2x1dGlvbiByw6llbGxlIGRvdWJsZX0KSWYgZGVsdGEgPSAwIFRoZW4gV3JpdGVsbiAoJ3gxPXgyPSAnLCAtYi8gKDIqYSkpCntkZXV4IHNvbHV0aW9ucyByw6llbGxlc30KRWxzZSBJZiBkZWx0YSA+IDAgIFRoZW4KQmVnaW4KV3JpdGVsbiAoJ3gxPSAnLCAoLWItc3FydCAoZGVsdGEpKS8gKDIqYSkpOwpXcml0ZWxuICgneDI9ICcsICgtYitzcXJ0IChkZWx0YSkpLyAoMiphKSk7CkVuZApFbHNlIFdyaXRlbG4gKCdEZXV4IHNvbHV0aW9ucyBjb21wbGV4ZXMnKTsKRW5kLg==