BÀI TẬP 78: ĐẾM SỐ LƯỢNG SỐ NGUYÊN DƯƠNG CÓ KHÔNG QUÁ N CHỮ SỐ VÀ TỔNG CÁC CHỮ SỐ BẰNG M

             Yêu cầu: Cho hai số nguyên dương N, M . Hãy đếm số lượng số nguyên dương có không quá N chữ số và tổng các chữ số bằng M.

            Input:

-     Dòng đầu chứa số nguyên T (T<=10) là số bộ dữ liệu.

-     T dòng sau, mỗi dòng chứa hai số nguyên N, M.

Output: Gồm T dòng, mỗi dòng là số lượng số nguyên dương có không quá N chữ số và tổng các chữ số bằng M tương ứng với bộ dữ liệu vào.

NM.INP	NM.OUT
1 2 1	2

    CODE THAM KHẢO:

    var  n,m,t,i,a,d,j: longint;

    procedure tao(x:byte; var a: longint);

    var j: longint;

    begin

            a:=1;

            for j:=1 to x do a:=a*10;

    end;

    function tongchuso(b:longint): longint;

    var s,k: longint;

    begin

            s:=0;

            while b >0 do

            begin

                    k:= b mod 10;

                    s:=s+k;

                    b:=b div 10;

            end;

            tongchuso:=s;

    end;

    begin

            assign(input,'NM.INP'); reset(input);

            assign(output,'NM.OUT'); rewrite(output);

            while not eof(input) do

            begin

                    readln(T);

                    for j:=1 to T do

                    begin

                            readln(N,M);

                            tao(n,a);

                            for i:=1 to a-1 do

                            if tongchuso(i) = M then inc(d);

                            writeln(d);

                            d:=0;

                    end;

            end;

            close(input); close(output);

    end.