Question

Написать программу по блок-схеме

Answer 1

Паскаль
Var
A, B, C, D, x1, x2:integer ;
Begin
Readln(a, B, c) ;
D:=(sqr(b)-4*a*c);
If d<0 then
Writeln(''корней нет'')
Else
If D = 0 then
X1:= (-b) /2a
Writeln(x1) ;
Else
If D > 0 then
X1 :=( - b + sqrt(d)) /(2*a)
X2:=(-b-sqrt(d))/(2*a)
Writeln(x1, x2)
End.

Answer 2

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3;
  var d:=b*b-4*a*c;
  if d<0 then Writeln('Корней нет')
  else
    if d=0 then begin
      var x:=-b/2/a;
      Writeln('Корень уравнения x=',x)
      end
    else begin
      var x1:=(-b-Sqrt(d))/2/a;
      var x2:=(-b+Sqrt(d))/2/a;
      Writeln('Корни уравнения: x1=',x1,', x2=',x2)
      end
end.