Ссылки - Система программирования PascalABC.NET

// Корни квадратного
// уравнения
var a,b,c: real;
    x1,x2,D: real;
begin
  readln(a,b,c);
  D := b*b - 4*a*c;
  if D<0 then
    writeln('Корней нет')
  else if D=0 then begin
    x1 := -b/2/a;
    writeln('x1=x2=',x1);
  end
  else begin
    x1 := (-b-sqrt(D))/2/a;
    x2 := (-b+sqrt(D))/2/a;
    writeln('x1=',x1,' x2=',x2);
  end;
end.

Баннеры