Написать программу которая решает уравнение x2+c=0 относительно x для любого числа с .

аx2+c=0

аx2=-с

х=-с/а

если -с/а меньше 0, корней нет

есла -с/а равно 0, то х=0

если -с/а больше 0,х=+-корень из -с/а

  type    mas = array [1..10] of integer;   var    m : mas;     a,l : integer;     function re () : integer;           //считываем число var    a : integer;   begin    writeln ('введите число');     readln (a);     result : =a;   end;       function  c(var m : mas; a : integer) : integer;   //разбиваем на числа var      i : integer;     begin    i : = 0;     while a > 0 do      begin      i : = i +1;       m[i] : = a mod 10;       a : = a div 10;                       end;     result : = i;     end;       procedure wr (a : mas; l : integer);     // вывод массива var      i : integer;     begin    writeln ('resultat : ');       for i : = 1 to l do      write (a[i],' ');     end;       procedure sort (var a : mas; l : integer);     // перевернуть массив  //  т.е  1234 -> 4321     var      i,buf : integer;     begin    for i : = 1 to l div 2 do      begin      buf : = a[l-i+1];       a[l-i+1] : = a[i];       a[i] : = buf;       end;     end;     begin  a : = re();   l : = c(m,a);   sort (m,l);   wr (m,l);   end.на примере числа  125после выполнения функции cm[1] = 5 m[2] =2 m[3] =1после выполнения процедуры sortm[1] =1 m[2] =2 m[3] =5вывод на экран элементов массива через пробел1 2 5

C++#include < iostream> using namespace std; int maiin(){  int ocenka = 0, count = 0, pol = 0, otr = 0;   while(count< =29){      cout< < "введите оценку : ";       cin> > ocenka; //получили оценку      if (ocenka> =3){pol++; } else {otr--; }      count++;         }cout< < "положительных - "< < pol< < " ; отрицательных - "< < otr< < endl;   return 0; }