)) ax в квадрате +bx+c=0 найти корни, решения составить с паскаля

var

  a, b, c, d, x1, x2: real;  

begin

  writeln('введите коэффициент при х^2');

  readln(a); //вводим коэффициент при x^2

  writeln('введите коэффициент при x');

  readln(b); //вводим коэффициент при х

  writeln('введите свободный член');

  readln(c); //вводим свободный член

  d: = sqr(b) - 4 * a * c;  

  writeln('дискриминант уравнения равен   ', d : 0 : 5); {печатаем дискриминант и округляем его до 5 знаков после запятой}

  if d > 0 then 

  begin

    writeln('d > 0 => уравнение имеет два различных действительных корня: ');

    x1: = (-b - sqrt(d)) / (2 * a);

    x2: = (-b + sqrt(d)) / (2 * a);

    writeln('x1 = ', x1 : 0 : 5, ', x2 = ', x2 : 0 : 5); {считаем корни уравнения и печатаем их с округлением до 5 знаков после запятой}

  end;

  if d = 0 then

  begin

  writeln('d = 0 => уравнение имеет два одинаковых действительных корня: ');

  writeln('x1 = x2 = ', -b / (2 * a) : 0 : 5); {если дискриминант равен 0, печатаем два одинаковых корня с округлением до 5 знаков после запятой}

  end;

  if d < 0 then writeln('d < 0 => действительных корней уравнение не имеет');  

end.

program kvurav; uses crt; var a,b,c: integer; d,x,x1,x2: real; begin

clrscr; writeln('введите  коэффициент  при х в квадрате (а)'); readln(a); writeln('введите  коэффициент  при х (b)'); readln(b); writeln('введите число с‘'); readln(c); d: =sqr(b) - 4 * a * c; writeln('дискриминант = ',d: 4: 2); if d> =0 then begin d: =sqrt(d); x1: =(-b+d)/2*a; writeln('x1 = ', x1: 4: 2); if d> 0 then begin x2: =(-b-d)/2*a; writeln('x2 = ', x2: 4: 2); end; end else writeln('дискриминант меньше нуля - корней нет'); readln; end.

2 Килобайта=16000бит 8 бит = 1 байт 16 кбайт= 16000

3Мбайт=3е+6 20 кбайт =20000 2,5 байта=20 бит