Написать алгоритм и программу квадратного уравнения

var

a,kd,b,c,x2,x1,d: extended;

begin

read(a,b,c);

d: =-4*a*c;

if d> 0 then

begin

 

kd: =sqrt(d);  

x1: =(-b+kd)/2*a;

x2: =(-b-kd)/2*a;

 

end;

else

write('нет корней');

if x1=x2 then write(x1) else write(x1,x2);

end

var

a,kd,b,c,x2,x1,d: extended;

begin

read(a,b,c);

d: =-4*a*c;

if d> 0 then

begin

 

kd: =sqrt(d);  

x1: =(-b+kd)/2*a;

x2: =(-b-kd)/2*a;

 

end;

else

write('нет корней');

if x1=x2 then write(x1) else write(x1,x2);

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

//писал на скорую руку, должно все правильно работать var a,plus,minus,d: integer; c: array[1..50] of integer; begin plus: =0; minus: =0; for a: =1 to 50 do c[a]: =random(20)-10; //заполняем массив рандомо for a: =1 to 50 do//проверям условие if ((c[a]> 0) and (c[a]< > 0)) then plus: =plus + 1 else if ((c[a]< 0) and (c[a]< > 0)) then minus: = minus + 1; writeln(plus,' '); //кол-во полож writeln(minus,' '); //кол-во отриц if (plus> minus)then writeln('положительных') else writeln('отрицательных'); end.

Const   nn=100; { предельное количество номиналов банкнот } type   bnk=longint; var   nom,res: array[1..nn] of bnk;   i,n,koln: integer;   sum: bnk; procedure sort(n: integer); var   i,j: integer;   t: bnk; begin   for i : = 1 to n-1 do       for j : = 1 to n-i do           if nom[j] > nom[j+1] then           begin t : = nom[j]; nom[j] : = nom[j+1]; nom[j+1] : = t end end; begin   readln(n);   for i: =1 to n do read(nom[i]);   readln(sum);   sort(n);   koln: =0; i: =n;   while sum> 0 do begin       while nom[i]> sum do dec(i);       inc(koln); res[koln]: =nom[i];       sum: =sum mod nom[i];       if (sum< nom[1]) and (sum< > 0) then begin sum: =0; koln: =-1 end   end;   if koln=0 then koln: =-1;   writeln(koln);   for i: =1 to koln do write(res[i],' ');   writeln end. тестовые решения контрольный пример: 5 1 3 7 12 32 40 3 32 7 1 еще один пример: 8 1 5 10 50 100 500 1000 5000 4586 6 1000 500 50 10 5 1