Cod sursa(job #558582)

Utilizator ForkeySandoiu Fernando Forkey Data 17 martie 2011 12:53:58
Problema Ecuatie Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
program ecuatie;
var v:array[1..100] of integer;
    a,b,c,k:longint;
    d,x1,x2:real;
begin
    read(a,b,c,k);
    d:=sqr(b)-4*a*c;
    x1:=(-b+sqrt(d))/(2*a);
    x2:=(-b-sqrt(d))/(2*a);
    p:=1;
    for i:=1 to x1 do
        begin
           if x1 mod i=0 then c:=x1 div i;
end.