SumofFiguresofNumber

Author: Kuraev
Miscellaneous
It issuies visual alerts to the screen
0 Views
0 Downloads
0 Favorites
SumofFiguresofNumber
#property copyright "Kuraev"
#property link      "delfik71091@hotmail.com"
#property version   "1.00"
#property strict
#property script_show_inputs

input int X=6785;                // èñõîäíîå ÷èñëî
//+------------------------------------------------------------------+
void OnStart()
  {
   int x=X;
   while(x>10) x=_SummDigit(x);  // öèêëèì äî òåõ ïîð, ïîêà ñóììà ÷èñåë íå áóäåò ìåíüøå 10
   Alert("Èñõîäíîå ÷èñëî - ",X,". Îòâåò: ",x);
   return;
  }
//+------------------------------------------------------------------+
//|            Ôóíêöèÿ ðàñ÷åòà ñóììû öèôð, âõîäÿùèõ â ÷èñëî          |
//+------------------------------------------------------------------+
int _SummDigit(int number)
  {
   int summ=0;
   number=(int)fabs(number);
   if(number<10) return(number);
   while(number>0)
     {
      summ=summ+number%10;       // íàêàïëèâàåì ñóììó (îñòàòîê îò äåëåíèÿ ÷èñëà íà 10)
      number=number/10;          // áëàãîäàðÿ ïðèâåäåíèþ òèïîâ ÷èñëî ñàìîîêðóãëÿåòñÿ âíèç
     }
   return(summ);
  }
//+------------------------------------------------------------------+

Comments