История изменений

Исправление bormant, 03.01.24 11:19 (текущая версия) :

Зачем столько мусора в коде?

var a, b, c, d: Real;
begin
  Write('A B C: ');
  ReadLn(a,b,c);
  d:=Sqr(b)-4*a*c;
  if d<0 then
    WriteLn('Действительных решений нет')
  else if d=0 then
    WriteLn('x = ',-b/a/2)
  else begin
    WriteLn('x1 = ',(-b+SqRt(d))/a/2);
    WriteLn('x2 = ',(-b-SqRt(d))/a/2);
  end;
end.

Исходная версия bormant, 03.01.24 11:15:

Зачем столько мусора в коде?

var a, b, c, d: Real;
begin
  Write('A B C: ');
  ReadLn(a,b,c);
  d:=Sqr(b)-4.0*a*c;
  if d<0 then
    WriteLn('Действительных решений нет')
  else if d=0 then
    WriteLn('x = ',-b/a/2.0)
  else begin
    WriteLn('x1 = ',(-b+SqRt(d))/a/2.0);
    WriteLn('x2 = ',(-b-SqRt(d))/a/2.0);
  end;
end.