infoarena

long long d;
  scanf("%lld",&d);

var a,c:array[0..10000000]of byte;
    uc:integer;
    n:int64;
    i,j:longint;
    m,l,aux,aux2,rest:int64;
    s:ansistring;
    fi,fo:text;
procedure imp(k:int64);
begin
     j:=1;
     for i:=1 to m do
        begin
             aux:=aux*10+a[i];
             if aux>k then
                begin
                     c[j]:=aux div k;
                     rest:=aux mod k;
                     inc(j);
                     aux:=rest;
                end;
        end;
end;
procedure sum(k:int64);
begin
     aux2:=l;
     for i:=m downto 0 do
        begin
             aux2:=aux2+a[i];
             uc:=aux2 mod 10;
             c[i]:=uc;
             aux2:=aux2 div 10;
        end;
end;
begin
     assign(fi,'next.in'); reset(fi);
     assign(fo,'next.out'); rewrite(fo);
     a[0]:=0;
     readln(fi,s);
     for i:=1 to length(s) do
         val(s[i],a[i]);
     m:=length(s);
     readln(fi,n);
     aux:=0;
     imp(n);
     if aux=0 then
        for i:=1 to m do
             write(fo,a[i])
      else
        begin
             l:=n-aux;
             sum(l);
             if a[0]<>0 then
                write(fo,c[0]);
             for i:=1 to m do
                write(fo,c[i]);
        end;
     close(fi);
     close(fo);
end.

#include<fstream>

using namespace std;

int main()
{ ifstream fin("fisier.in");
  fin>>d;
}

void scadere()
{
	long long i,j,poz,k;
	for (i=1; i<=q; i++) // e clar ca (n%d) are mai putine cifre ca n+d
	{
		poz=i;
		if (c[i]>=w[i])
			c[i]=c[i]-w[i];
		else
		{
			for (j=poz+1; j<=l_sir; j++)
				if (c[j])
				{
					c[j]--;
					for (k=j-1; k>i; k--)
						c[i]=9;
					break;
				}
			c[i]=(10+c[i])-w[i];
		}
	}
	poz=0;
	for (j=l_sir; j>=1; j--)
		if (c[j]==0)
			poz++;
		else
			break;
	for (j=l_sir-poz; j>=1; j--)
		printf("%d",c[j]);
}

N=789127
D=236
Raspun= 789184

N=10
D=1
Raspuns=10

N=371
D=2
Raspuns=372