Răspuns :
program Tema;
uses Math;
var a,b,c,x1,x2,delta:real;
begin
writeln('Introduceti coeficientii ecuatiei de gradul al doilea: ');
read(a,b,c);
delta:=b*b-4*a*c;
if(delta<0) then
writeln('Solutiile ecuatiei nu sunt numere reale:');
else if(delta=0) then
begin
x1:=(-b)/(2*a);
Writeln('Radacinile sunt egale intre ele cu valoarea: ',x1);
end;
else
begin
x1:=(-b+sqrt(delta))/(2a);
x2:=(-b-sqrt(delta))/(2a);
Writeln('Radacinile ecuatiei sunt: ',x1,' si ',x2);
end;
end.
uses Math;
var a,b,c,x1,x2,delta:real;
begin
writeln('Introduceti coeficientii ecuatiei de gradul al doilea: ');
read(a,b,c);
delta:=b*b-4*a*c;
if(delta<0) then
writeln('Solutiile ecuatiei nu sunt numere reale:');
else if(delta=0) then
begin
x1:=(-b)/(2*a);
Writeln('Radacinile sunt egale intre ele cu valoarea: ',x1);
end;
else
begin
x1:=(-b+sqrt(delta))/(2a);
x2:=(-b-sqrt(delta))/(2a);
Writeln('Radacinile ecuatiei sunt: ',x1,' si ',x2);
end;
end.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!