Составить алгоритм вычисления корней квадратного уравнения

Ax²+bx+c=0 пример: 2х²+х-6=0 a=2 b=1 c=-6 1)d(дискриминант)=b²-4*a*c d=(1)²-4*2*(-6)=49> 0=> 2 разных корня °если: d> 0=> 2 разных корня, °если: d< 0=> корней нет °если: d=0=> 2 одинаковых корня 2)x1,2=-b±√d/2*a x1=-1+√49/2*2=-1+7/4=6: 4=3/2=(одна целая,одна вторая)-это запиши в цифрах x2=-1-√49/2*2=-1-7/4=-8/4=-2 ответ: -2; (одна целая,одна вторая) вот и все)

при использовании компьютерного алфавита 1 символ = 1 байт, значит

20000 символов = 20000 байт

20000 : 1024 = 19,5 кбайт

19,5 кбайт < 20 кбайт, значит текст на дискету поместиться.

 

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.