infoarena

program intervalsuma;
var sum:array[1..1000000] of longint;
    a,b,i,l,l1,j:longint;
    stop:boolean;
 begin
  write('a=');
  readln(a);
  write('b=');
  readln(b);
  write('Numerele din intervalul [',a,',',b,'] care se divid prin suma cifrelor sale sunt: ');
  l:=99;
  l1:=100;
  stop:=false;
  if (b<100) or (a<100) then
   begin
    if b<100 then
     l:=b;
    for i:=a to l do
     begin
      sum[i]:=i mod 10 + i div 10;
      if i mod sum[i]=0 then
       begin
        write(i,' ');
        stop:=true;
       end;
     end;
    end;
  if l<>b then
   begin
    if a>l then
     l1:=a;
    if b<1000 then
     l:=b
    else
     l:=999;
    for i:=l1 to l do
     begin
      sum[i]:=i mod 10 + (i div 10) mod 10 + (i div 10) div 10;
      if i mod sum[i]=0 then
       begin
        write(i,' ');
        stop:=true;
       end;
     end;
   end;
  if l<>b then
   begin
    if a>l then
     l1:=a
    else
     l1:=1000;
    for i:=l1 to b do
     begin
      j:=i;
      repeat
       sum[i]:=sum[i]+j mod 10;
       j:=j div 10;
      until j=0;
      if i mod sum[i]=0 then
       begin
        write(i,' ');
        stop:=true;
       end;
     end;
   end;
  if not stop then
   write('----nu exista numere din acest interval----');
  readln;
 end.

void div(int st,int dr)
{
  if(st>dr)
     return;
   if(st==dr)
       calc(st);
   else
   {
      calc (st) ;calc(dr);
      div(st+1,(st+dr)/2);
      div((st+dr)/2+1,dr-1);
   }
}

for( ; a != b; ++a, --b )  
{
      if( check(a) )
          ++nr;
     if( check(b) )
          ++nr;
}
if( check(a) )
  ++nr;