Program kv_ur;
uses crt;
var
a,b,c,d: integer;
x1,x2,x: real;
begin
Writeln ('Введите a,b,c');
Read (a,b,c);
d:=sqr(b)-4*a*c;
if d>0 then
begin
x1:=-b-sqrt(d)/2*a;
x2:=-b+sqrt(d)/2*a;
Writeln ('Корни уравнения: x1=',x1,' x2=',x2);
end
else
if d<0 then
Write ('Нет корней')
else
begin
x:=-b/2*a;
Writeln ('Корень уравнения: x=',x);
end;
end.
написать проверку
uses crt;
var
a,b,c,d: integer;
x1,x2,x: real;
begin
Writeln ('Введите a,b,c');
Read (a,b,c);
d:=sqr(b)-4*a*c;
if d>0 then
begin
x1:=-b-sqrt(d)/2*a;
x2:=-b+sqrt(d)/2*a;
Writeln ('Корни уравнения: x1=',x1,' x2=',x2);
end
else
if d<0 then
Write ('Нет корней')
else
begin
x:=-b/2*a;
Writeln ('Корень уравнения: x=',x);
end;
end.
написать проверку
More Questions From This User See All