Cod sursa(job #317504)

Utilizator grigiqGRIG T. grigiq Data 23 mai 2009 20:12:14
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.38 kb
   program gr2;
      var a,b,c,delta:real;
      x1,x2:real;
      begin
      readln(a,b,c);
      delta:=sqr(b)-4*a*c;
      if delta<0 then writeln('ecuatia nu are solutii reale') else
      if delta=0then  writeln('ecuatia are o solutie: ',-b/(2*a)) else
      writeln ('ecuatia are 2 sol.:',-b-sqrt(delta)/(2*a):2:2,' si ',-b+sqrt(delta)/(2*a):2);

     readln
     end.