Составте программу которая , вычисляет корни... Напишите в тетради плз)
Answers & Comments
lev23karlov
Program korni; uses crt; var a,b,c:integer; x1,x2:real; begin writeln('введите коэффициент А, B и С'); readln(a,b,c); x1:=sqr(b)-4*a*c; x2:=(b*(-1)-sqrt(x1))/a*2; x1:=(b*(-1)+sqrt(x1))/a*2; writeln('корни уравнения: x1=',x1,',x2=',x2); end.
Answers & Comments
uses crt;
var
a,b,c:integer;
x1,x2:real;
begin
writeln('введите коэффициент А, B и С');
readln(a,b,c);
x1:=sqr(b)-4*a*c;
x2:=(b*(-1)-sqrt(x1))/a*2;
x1:=(b*(-1)+sqrt(x1))/a*2;
writeln('корни уравнения: x1=',x1,',x2=',x2);
end.