#include <iostream>
#include <cstring>
using namespace std;
int const br_cifri=10;

#define korenuwane (2*delitel +i)*i;
int i,delitel;

int koren (int &delimo)
{int rez;
 cout<<"Obrabotwam: "<<delimo;
 i=0;
 do { i++;
    rez=korenuwane;
    } while (rez<=delimo);
    i--;   cout<<":"<<2*delitel<<"+"<<i<<" s chislo "<<i<<endl;
    delimo-=korenuwane;
 return i;
}// izwyrshwa korenuwane 

int Wywevda(int mas[])
 {int dyl, j;
  char chis[br_cifri];
  cout<<"Wywedete estestweno chislo [100..100001]: ";cin>>chis;
  dyl=strlen(chis);//chisloto kato string
  //prehwyrlq otdelnite cifri
  for (j=0;j<dyl;j++)    {mas[j]=chis[j]-'0';}//stringa w chifra
  return dyl;
}//wywevda estestweno chsilo za korenuwane
  
int main()
{ int delimo, poz,br,razr;
  int mas[br_cifri];//masiwa s cifrite na chisloto za korenuwane
  cout<<"Da se systawi programa, chrez koqto se wywevda estestweno \n";
  cout<<"chsilo ot interwala [100.100001] i se izwevda naj-blizkoto \n";
  cout<<"chislo do negowiq celochislen koren kwadraten \n";
  cout<<"Primer: 10609 Izhod: 103 \n";
  br= Wywevda(mas);//lkolko cifri ima w chisloto
  delimo=0; //125;
  delitel=0;
  poz=0;
  do {//ako chisloto e s necheten broj cifri se wzema samo pyrwata cifra
   if (br%2 && poz==0)
    { razr= mas[poz];
      poz++;
     }//samo pri pyrwa cifra i necheten broj cifri   
    else {//wyw wsichki ostanali sluchai se wzemat po dwe cifri
    razr=delimo*100+ mas[poz]*10+mas[poz+1];   
    poz+=2;
  }//formirano e nowoto chislo
   
  delimo=razr;//nowoto chislo za korenuwane  
  delitel*=10;//wsichki cifri se premestwat s edna poziciq nalqwo
  delitel+=koren(delimo);//polucheniq do momenta koren kwadraten
 } while (poz<br);//dokato ne sa otcheteni wsichki wywedeni cifri pri korenuwane
   
  cout<<"Namerih koren kwadraten "<<delitel<<endl;
  cout<<" kwadrat na chisloto "<<delitel*delitel<<endl;
 system("pause");
 return 0;
 }//karj na programa za korenuwane - celochislen koren kwadraten

int koren_cql(int chis)
 {int step,koren=0,;
  for( step=1; step<=chis; step<<=1 );//do stepen na 2 >= na wywedcenoto chislo
  while( step>1 )
   { step>>=1;//posledowatelno se deli celochisleno na 2
  //pri sledwa]ata prowerka zapochwa narastwane stojnostta na tyrseniq koren      
     if ( (koren + step)*(koren+step)<=chis ) {koren+=step;}
   }
   return koren;
   }// korenuwane - cqlo chislo za koren kwadraten 

#include <iostream>
#include <cmath>
using namespace std;

int main()
{double a, b, c;
 cout<<"Imate 2 realni chisla ot interwala [3.99..33.99], predstwlqwashi\n";
 cout<<"dylvinata na kateti w prawoygylen triygylnik.\n";
 cout<<"Da se systawi programa, chez koqto se izchislwqa dylvinata na\n";
 cout<<"hipotenuzata w prawoygylen triygylnik po wywedeni dylvini na dwata kateta.\n";
 cout<<"Primer: 3,4 Izhod: 5\n";
 cout<<"Wywedete dylvina na kateta a: ";cin>>a;
 cout<<"Wywedete dylvina na kateta b: ";cin>>b;
 c= sqrt (a*a +b*b);//formula na Pitagor - koren kwadraten sqrt 
 cout<<"Dylvinata na hipotenuzata e: "<<c<<endl;
 system("pause");
 return 0;
}//kraj na programa koren kwadraten  sqrt 

#include <iostream>
#include <cmath>
using namespace std;

int main ()
{double m,n,a,b,c,p,S,La,R;
 cout<<"Ot wryh A na triygylnika ABC e spusnata yglopolowqsha La, razdelqsha\n";
 cout<<"stranata BC na chast w otnoshenie m:n. Wywedena e dylvinata na \n";
 cout<<"AC = b. Po wywedeni m,n, b da se izchisli radiusa na opisanata okolo\n";
 cout<<"tozi triygylnik okryvnost R i dylvinata na yglopolowqshata La.\n";
 cout<<"Primer: m=3; n=3; b=5 Izhod La=4; R=3.125 \n";
 cout<<"Wywedete m: ";cin>>m;
 cout<<"Wywedete n: ";cin>>n;
 cout<<"Wywedete b: ";cin>>b;
 a=m+n; //strana BC
 c= n*b/m; //swojstwo na yglopolowqshi b/c = m/n 
 p=0.5*(a+b+c);//poluperimetyr
 S = sqrt (p*(p-a)*(p-b)*(p-c)); //lice po Heron koren kwadraten  sqrt 
 La = 2 * sqrt ( b*c*p* (p-a) ) / (b+c); 
 cout<<"Dylvina na yglopolowqsha La: "<<La<<endl;
 R = a*b*c / (4*S);
 cout<<"Radius na opisanata okryvnost: "<<R<<endl;
system ("pause");
return 0;
}//kraj na programa koren kwadraten sqrt   

#include <iostream>
#include <cmath>
using namespace std;

int main()
{ double a, b, c,d, S;
  cout<<"Imate 3 realni chisla a,b,c ot interwala [3.99..33.99],\n";
  cout<<" predstwlqwashi dylvinata na osnowni i okolen ryb w paralelepiped.\n";
  cout<<"Da se systawi programa, chez koqto se izchislwqa sumata\n";
  cout<<"ot dylvinite na wsichki diagonali w tozi paralelepiped.\n";
  cout<<"Primer: 3,4,6 Izhod: 97.2206\n";
  cout<<"Wywedete dylvina za a: ";cin>>a;
  cout<<"Wywedete dylvina za b: ";cin>>b;
  cout<<"Wywedete dylvina za c: ";cin>>c;
  S= sqrt (a*a +b*b);//formula na Pitagor - koren kwadraten sqrt 
  S+= sqrt (a*a+c*c);
  S+= sqrt (b*b+c*c);
  S+= sqrt (a*a+b*b+c*c);//telesen diagonal
  S*=4;
  cout<<"Suma ot diagonali w paralelepiped "<<S<<endl;
  system("pause");
 return 0;
}//kraj na programa koren kwadraten sqrt