Nguyễn Trung Dũng

var n:longint;
        e:array[1..100000]of longint;

procedure xuli();
var i:longint;
begin

        for i:=1 to n do
                write(e[i],#32);
        writeln();
end;
procedure thu(i:longint);
var j:longint;

begin

        for j:=0 to 1 do
        begin
                e[i]:=j;
                if i=n then
                        xuli()
                else
                        thu(i+1);
        end;

end;
begin
         assign(input,'DQBN0.inp');
        assign(output,'DQBN0.out');
        reset(input);
        rewrite(output);
        readln(n);
        thu(1);
        close(input);
        close(output);
end.

var n:longint;
        e:array[1..100000]of longint;

procedure xuli();
var i,p:longint;
begin
        p:=1;
        for i:=1 to n-2 do
        begin
                if e[i]+e[i+1]+e[i+2]=3 then
                        begin
                                p:=0;
                                break;
                        end;
        end;
        if p=1 then
                        begin
                                for i:=1 to n do write(e[i]);
                                writeln();
                        end;
end;
procedure thu(i:longint);
var j:longint;

begin

        for j:=0 to 1 do
        begin
                e[i]:=j;
                if i=n then
                        xuli()
                else
                        thu(i+1);
        end;

end;
begin
         assign(input,'DQBN01.inp');
        assign(output,'DQBN01.out');
        reset(input);
        rewrite(output);
        readln(n);
        thu(1);
        close(input);
        close(output);
end.

var n,k,i:longint;
        e:array[1..100000]of longint;
        b:array[1..100000]of longint;
procedure xuli();
var i,s:longint;
begin
        s:=0;
        for i:=1 to n do
                if e[i]=1 then
                        s:=s+b[i];
        if s=k then
        begin
                for i:=1 to n do
                        if e[i]=1 then write(b[i],#32);
                writeln();
        end;
end;
procedure thu(i:longint);
var j:longint;

begin

        for j:=0 to 1 do
        begin
                e[i]:=j;
                if i=n then
                        xuli()
                else
                        thu(i+1);
        end;

end;
begin
         assign(input,'DQBN05.inp');
        assign(output,'DQBN05.out');
        reset(input);
        rewrite(output);
        readln(n,k);
        for i:=1 to n do
        read(b[i]);
        thu(1);
        close(input);
        close(output);
end.

var s,tam:string;
        k,i,n:longint;
        c:array[1..100000] of longint;
begin
        assign(input,'b1x1.inp');
        assign(output,'b1x1.out');
        reset(input);
        rewrite(output);
        readln(s);
        for i:=1 to length(s) do
        if (s[i] >='0') and (s[i]<='9') then
                tam:=tam+s[i]
        else
                if length(tam)>0 then
                        begin
                                val (tam,n);
                                inc(k);
                                c[k]:=n;
                                tam:='';
                        end;
                for i:=1 to k do
        write(c[i],#32);
        close(input);
        close(output);
end.

var s,tam:string;
        k,i,n,rmax:longint;
        c:array[1..100000] of longint;
begin
        assign(input,'b2x2.inp');
        assign(output,'b2x2.out');
        reset(input);
        rewrite(output);
        readln(s);
        tam:='';
        for i:=1 to length(s) do
        if (s[i] >='0') and (s[i]<='9') then
                tam:=tam+s[i]
        else
                if length(tam)>0 then
                        begin
                                val (tam,n);
                                inc(k);
                                c[k]:=n;
                                tam:='';
                        end;
                for i:=1 to k do
        write(c[i],#32);
        rmax:=c[1];
        for i:=1 to k do
                if c[i]>rmax then rmax:=c[i];
        write(rmax);
        close(input);
        close(output);
end.

var s:string;
        i,j:longint;
        t:char;
begin
        assign (input,'bai1.inp');
        assign (output,'ba.out');
        reset (input);
        rewrite (output);
        readln(s);
        for i:=1 to length(s)-1 do
                for j:=i+1 to length(s) do
                        if s[i]>s[j] then
                                begin
                                        t:=s[i];
                                        s[i]:=s[j];
                                        s[j]:=t;
                                end;
        close(input);close(output);
end.

var s,snen,stam:string;
        i,dem:longint;
begin
        assign (input,'b4x4.inp');
        assign (output,'b4x4.out');
        reset (input);
        rewrite (output);
        readln(snen);
        dem:=1;
        for i:=1 to length(s) do
                if s[i]=s[i+1] then
                        inc(dem)
                else
                        begin
                                str(dem,stam);
                                snen:=snen+s[i]+stam;
                                dem:=1;
                        end;
                write(snen);
        close(input);
        close(output);
end.

var s,s1:string;
        p:longint;

begin
        assign (input,'b6x6.inp');
        assign (output,'b6x6.out');
        reset (input);
        rewrite (output);
        readln(s);
        readln(s1);
        while pos(s1,s)>0 do
                begin
                        p:=pos(s1,s);
                        delete(s,p,length(s1));
                end;
        write(s1);
        close(input);
        close(output);
end.

var f:array[1..100]of ansistring;
        i,n:longint;
begin
        assign (input,'b7x7.inp');
        assign (output,'b7x7.out');
        reset (input);
        rewrite (output);
        readln(n);
        f[1]:='a';
        f[2]:='b';
        for i:=3 to n do
                begin
                        f[i]:=f[i-1]+f[i-2];
                        writeln(length(f[i]));
                end;
        write(f[n]);
        close(input);
        close(output);
end.

var f:array[1..100]of ansistring;
        i,n,res1,res2:longint;
begin
        assign (input,'b8x8.inp');
        assign (output,'b8x8.out');
        reset (input);
        rewrite (output);
        readln(n);
        f[1]:='a';
        f[2]:='b';
        for i:=3 to n do
                res1:=0;
                res2:=0;
        for i:=1 to length(f[n]) do
                if f[n][i]='a' then
                inc(res1)
        else
                inc(res2);
        write(res1,#32,res2);
        close(input);
        close(output);
end.

var n,s:longint;
function tongcs(u:longint):longint;
var s:longint;
begin;
        s:=0;
        while u>0 do
                begin
                        s:=s+u mod 10;
                        u:=u div 10;
                end;
        exit(s);
end;
begin
        assign (input,'ncount.inp');
        assign (output,'ncount.out');
        reset (input);
        rewrite (output);
readln(n);
write(tongcs(n));
        close(input);close(output);
end.

var n,s:longint;
function demcs(u:longint):longint;
var n,i,s:Longint;
begin
        s:=0;
        while u>0 do
                begin
                        s:=s+u mod 10;
                        u:=u div 10;
                end;
        exit(s);

        s:=0;
        for i:=1 to n do
                s:=s+demcs(i);
        write(s);
end;
begin
        assign (input,'dcount.inp');
        assign (output,'dcount.out');
        reset (input);
        rewrite (output);
        readln(n);
        write(demcs(s));
        close(input);
        close(output);
end.